Мәтін түсін қызыл, көк, жасыл түстерге циклді түрде өзгертетін батырманы формаға қосыңыз.
Формаға Edit өрісін қосыңыз. Өріске сан енгізілгенде мәтін осы санға сәйкес жылжуы керек:
Label1.Left:=Label1.Left+StrToInt(Edit1.Text);
Label1.Top:=Label1.Top+StrToInt(Edit1.Text);
Мәтінді вертикаль және горизонталь бойынша жылжытуға мүмкіндік беретін екі батырма жасаңыз.
ІІІ. Түс атауы бар радио-батырманы басқанда бағдаршамда сәйкес түс жанатын Windows-қосымшасын жасау.
Жаңа қосымша құрыңыз: File/New/Application.
Формаға Label, Panel, GroupBox, RadioButton (Standard бетінен) орналастырыңыз.
Объектілер инстпекторын пайдаланып олардың келесі қасиеттерін орнатыңыз:
Объект
|
Қасиеті
|
Мәні
|
Label1
|
Caption
|
Светофор
|
Panel1
|
Caption
|
Стойте
|
Panel2
|
Caption
|
Готовьтесь
|
Panel3
|
Caption
|
Идите
|
GroupBox1
|
Caption
|
Цвет
|
RadioButton1
|
Caption
|
Красный
|
RadioButton2
|
Caption
|
Желтый
|
RadioButton3
|
Caption
|
Зеленый
| RadioButton1 объектісінің Click (щелчок мыши) оқиғасын өңдеу процедурасы үшін келесі кодты жазыңыз:
procedure TForm1.RadioButton1Click(Sender:TObject);
begin
Panel1.Color:=clRed;
Panel2.Color:=clWhite;
Panel3.Color:=clWhite;
end;
TForm1.RadioButton2Click және TForm1.RadioButton3Click процедуралары үшін өздерін код жазыңыз.
Өлшемі 12п, сызылуы қалың (fsBold), түсі ақ (clwhite) болатын "Стойте", "Внимание", "Идите" сөздерінің жазылуын қосыңыз.
Достарыңызбен бөлісу: |