Question

Створіть проект, у якому в результаті настання події KeyPress встановлюють ся розміри вікна 300 х 200 пікселів, червоний колір фону і зміниться текст заголовка на ваше прiзвище. В СЕРЕДОВИЩІ LAZARUS. БЛАГАЮ ДОПОМОЖІТЬ

Answer 1

Ответ:

Объяснение:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);

begin

 if Key = #13 then

 begin

   Form1.Width := 300;

   Form1.Height := 200;

   Form1.Color := clRed;

   Form1.Caption := 'Your Surname';

 end;

end;

Цей код визначить, коли натиснуто клавішу Enter, а потім відповідно встановить розмір вікна, колір фону та текст заголовка.