Предмет: Информатика, автор: mj8tg

Створіть проект, під час виконання якого буде вiдкриватися вікно з такими значеннями властивостеей:
• колір фону - cipий
• ширина 200 пікселів;
висота - 100 пікселів;
• відступ лівої межі - 150 пікселіе;
• відступ верхньої межі - 100 пікселів;
• текст у рядку заголовка - Практична робота
2. Додайте до проєкту обробник подій Click для вікна, виконання якого установить червоний колір фону вікна, відступ верхньої межі вікна 200 пікселів від верхньої межі екрана, збільшить його ширину на 300 пікселів, зменшить на 50 пікселів відступ лівої межі вікна від лівої межі екрана, відкриє вікно повідомлень з текстом Ми вивчаємо програмування!
На мові Pascal. Наперед дякую!

Ответы

Автор ответа: dimonchop

Відповідь:

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.

Интересные вопросы

Предмет: Английский язык, автор: Аноним

1 год назад

Предмет: Математика, автор: sersnevaolga9

1 год назад

Предмет: Немецкий язык, автор: samsunggalaxyoneui81