Створіть проект, під час виконання якого буде вiдкриватися вікно з такими значеннями властивостеей:
• колір фону - cipий
• ширина 200 пікселів;
висота - 100 пікселів;
• відступ лівої межі - 150 пікселіе;
• відступ верхньої межі - 100 пікселів;
• текст у рядку заголовка - Практична робота
2. Додайте до проєкту обробник подій Click для вікна, виконання якого установить червоний колір фону вікна, відступ верхньої межі вікна 200 пікселів від верхньої межі екрана, збільшить його ширину на 300 пікселів, зменшить на 50 пікселів відступ лівої межі вікна від лівої межі екрана, відкриє вікно повідомлень з текстом Ми вивчаємо програмування!
На мові Pascal. Наперед дякую!
Ответы
Ответ дал:
2
Відповідь:
program PracticalWork;
uses
Forms, Controls, Dialogs;
var
MainForm: TForm;
procedure MainFormClick(Sender: TObject);
begin
MainForm.Color := clRed;
MainForm.Width := MainForm.Width + 300;
MainForm.Left := MainForm.Left - 50;
MainForm.Top := 200;
ShowMessage('Ми вивчаємо програмування!');
end;
begin
MainForm := TForm.Create(nil);
try
MainForm.Color := clTeal;
MainForm.Width := 200;
MainForm.Height := 100;
MainForm.Left := 150;
MainForm.Top := 100;
MainForm.Caption := 'Практична робота';
MainForm.OnClick := MainFormClick;
MainForm.ShowModal;
finally
MainForm.Free;
end;
end.
Вас заинтересует
4 месяца назад
4 месяца назад
4 месяца назад
4 месяца назад
2 года назад
7 лет назад