2. Создайте проект, в котором при двойном клике мыши по форме ее размеры будут увеличиваться на 5.
После создания нового проекта в инспекторе свойств измените свойство Text
на «Упражнение 2» и создайте обработчик события DoubleClick
. После этого во вкладке «Код» объявится соответсвующая процедура и обработчик для двойного клика. В тело обработчика добавьте команды для изменения переменных Width
и Height
.
Итоговая программа может выглядеть так:
Unit Unit1;
interface
uses System, System.Drawing, System.Windows.Forms;
type
Form1 = class(Form)
procedure Form1_DoubleClick(sender: Object; e: EventArgs);
{$region FormDesigner}
private
{$resource Unit1.Form1.resources}
{$include Unit1.Form1.inc}
{$endregion FormDesigner}
public
constructor;
begin
InitializeComponent;
end;
end;
implementation
procedure Form1.Form1_DoubleClick(sender: Object; e: EventArgs);
begin
Width := Width + 5;
Height := Height + 5;
end;
end.