Створіть проект, у якому в результаті настання події KeyPress встановлюють ся розміри вікна 300 х 200 пікселів, червоний колір фону і зміниться текст заголовка на ваше прiзвище. В СЕРЕДОВИЩІ LAZARUS. БЛАГАЮ ДОПОМОЖІТЬ
More Questions From This User See All
Answers & Comments
Ответ:
Объяснение:
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, а потім відповідно встановить розмір вікна, колір фону та текст заголовка.