3. Создайте проект, в котором цвет формы будет меняться при наведении на нее мыши, например с желтого на зеленый.
В инспекторе свойств установите для BackColor
жёлтый цвет (это цвет формы), для свойства Text
— строку «Упражнение 3». Затем создадим обработчики для событий MouseEnter
и MouseLeave
. Первое событие происходит при наведении мыши на окно, второе — при уходе мыши за границы окна. В теле обработчика события наведения мыши установим зелёный цвет для BackColor
, а в теле обработчка MouseLeave
— жёлтый.
Должна получится такая программа:
Unit Unit1;
interface
uses System, System.Drawing, System.Windows.Forms;
type
Form1 = class(Form)
procedure Form1_MouseEnter(sender: Object; e: EventArgs);
procedure Form1_MouseLeave(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_MouseEnter(sender: Object; e: EventArgs);
begin
BackColor := Color.Green;
end;
procedure Form1.Form1_MouseLeave(sender: Object; e: EventArgs);
begin
BackColor := Color.Yellow;
end;
end.