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.