Hallo allemaal,
Ik zet op het Form een Panel1 en zet Panel1.OnMouseDown. De bedoeling is dat als de muiscursor op Panel1 staat er de kleur van Panel1 groen wordt en als de muiscursor buiten Panel1 staat Panel1 de kleur licht blauw krijgt. Op zich werkt dit wel, maar als je te snel de muiscursor verplaatst dan veranderd de kleur niet en blijft op groen staan. Hoe los je dit op?
Met een vriendelijk groet, Frans
Code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (Panel1.Height - Y = 1) or (Y <= 1) or (Panel1.Width - X = 1) or (X <= 1) then
begin
Panel1.Color := claqua;
Exit;
end;
Panel1.Color := clGreen;
end;
end.
Bookmarks