Извиняюсь за свой руский дело в том что я из другой страни и коекто наисал что ето руский сайт ладно проехали....Короче мне надоело уже жыть у родителей мол бы убирайся и тд и тп немогу дождаться института до которого мне еще 5 лет в школе пахать единственная утеха ето музыка но мне нужно еще что нибуть что бы меня отвлекло от повседневной рутины.

Всім привіт !

В минулому блозі я записала  як зробити щоб при нажатті кнопки заголовок змінив назву.Зараз я вам дам код як зробити щоб іще й колір, а мітка( лейбел) міняв свій текст.

procedure TForm1.btn1Click(Sender: TObject);

begin

 Form1.Caption:= ' Дуже хороша робоча программа ' ;

 Form1.Color:= clYellow ;

 Lbl1.Caption := ' А воно робить';

end;

end.

Як зробити щоб при нажатті кнопки мінялася назва Form1?

Спочатку я виводила на Form1 3 кнопки:Button,Edit,Label.Далі ми виділяємо кнопку Button, потім в інспекторі об'єктів вибираємо  вкладку Events далі знаходимо подію OnClick і нажимаємо двічі по текстовому полі.Ми переходим на вікно коду, а ось і сам  код

procedure TForm1.btn1Click(Sender: TObject);

begin

Form1.Caption:= ' Дуже хороша робоча программа ' ;

end;

після цього ми зберегли проект і запустили його.

end.