I tried to change the color of the tPanel component, but it does not work
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
procedure FormCreate(Sender: TObject);
private
procedure MyPanelMouseEnter(Sender: TObject);
procedure MyPanelMouseLeave(Sender: TObject);
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
for i := 0 to ComponentCount-1 do
if Components[i] is TPanel then with TPanel(Components[i]) do
begin
OnMouseEnter:=@MyPanelMouseEnter;
OnMouseLeave:=@MyPanelMouseLeave;
end;
end;
procedure TForm1.MyPanelMouseEnter(Sender: TObject);
begin
end;
procedure TForm1.MyPanelMouseLeave(Sender: TObject);
begin
end;
end.
I have a problem with completing the procedures
procedure TForm1.MyPanelMouseEnter(Sender: TObject);
begin
Color:= clRed;
end;
procedure TForm1.MyPanelMouseLeave(Sender: TObject);
begin
Color:= clLime;
end;