Практична робота. «Проєкти з кнопками та написами»

1

2

3

4

Вікно робочої області

Інспектор об'єктів

Вікно форми

Вікно редактор тексту

1

2

3

4

begin

finish

procedure

end

:

:=

=

=:

крапкою з комою

двокрапкою

комою

крапкою

Caption

Label

Button

Кнопка

Form1

Procedure

Edit

Color

Label

TObject

Button

Edit

Form1/Color = CLRed;

Form1.Color = colorRed;

Form1_Color := colorRed;

Form1.Color := ClRed;

procedure TForm1.FormClick(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);

Caption

Size

Font

Label

Label

T Object

Button

Edit

шрифт

висоту шрифта

колір шрифта

розмір шрифта

True

False

procedure TForm1.Button2Click(Sender: TObject);

begin

label5.Font.Name:='Calibri';

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

label5.Font.size:=8;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

label5.Font.style:=[fsItalic];

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

label5.Font.color:=clGreen;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

label5.Font.Name:='Calibri';

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

label5.Font.size:=8;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

label5.Font.style:=[fsItalic];

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

label5.Font.color:=clGreen;

end;

Label2- невидимий

Label2-видимий

Label3-видимий

Label4-видимий