Implementation
{$R *.dfm}
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key= #13 then
begin
Label2.Caption:= Edit1.Text + ',сен окуды жаксы коресін бе?';
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label3.Caption:='Жарайсын!'
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Label3.Caption:='Неге? Оку керек.';
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Label2.Caption:=' ';
Label3.Caption:=' ';
Edit1.Text:=' ';
Form1.ActiveControl := Edit1
end;
end.
Қорытынды:Оздерин жазындар
№3 зертханалық жұмыс “Анықтама” атты жобасын құру Жұмыстың мақсаты:
ListBox (Тізім, Список) компонентін қолдануын және ақпаратты енгізуге арналған қосымша редакторларымен жұмыс жасауын үйрену.
1 Тапсырма
Формаға ListBox компонентін, үш Label белгісін және BitBtn батырма-сын орналастырдым. (Standard парағынан). ListBox1 объектісін белгілеп, Items қасиетіндегі түс атауларының біреуін белгілеп Enter пернесін басканда,”Атауды өшіру және түс коды’’ сөзінен RGB форматындағы түс жазу анықтамасы шығады.
Бағдарламаның дайын түрі
Листинг бағдарламасы:
unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
ListBox1: TListBox;
procedure ListBox1KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
case ListBox1.ItemIndex of
0:Label3.Caption:='кара000000';
1:Label3.Caption:='акFFFFFF';
2:Label3.Caption:='кызылFF0000';
3:Label3.Caption:='жасыл00FF00';
4:Label3.Caption:='кокшіл00FFFF';
5:Label3.Caption:='кок0000FF';
6:Label3.Caption:='кулгінFF00FF';
7:Label3.Caption:='сарыFFFF00';
8:Label3.Caption:='коныр996633';
9:Label3.Caption:='сары-кызыл FF8000';
10:Label3.Caption:='?ызгылт8000FF';
11:Label3.Caption:='сурA0A0A0';
end;
end;
end.
Қорытынды:Өздерин жазындар
№4 зертханалық жұмыс “Сөздік” атты жобамен жұмыс Жұмыстың мақсаты:
ComboBox комбинирленген тізімін қолдануын үйрену, компоненті сөндіргіш Checkbox және MessageDIg функциясымен жұмыс жасау.
1 Тапсырма
ComboBox компонентінің топталған тізімін қолдануды үйрену. ComboBox (жолдарды біріктіру, енгізу және ListBox компоненті), CheckBox компонентін қосу және MessageDlg функциясымен жұмыс істеу.
Бағдарламаның дайын түрі
Листинг бағдарламасы:
unit fam5;