Einzelnen Beitrag anzeigen

hathor
(Gast)

n/a Beiträge
 
#3

Re: ein OnHover nachbauen / benutzen

  Alt 20. Sep 2009, 12:53
Delphi-Quellcode:
procedure TForm1.Panel1MouseLeave(Sender: TObject);
begin
Panel1.Color:= clgreen;
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Panel1.Color:= clred;
end;
  Mit Zitat antworten Zitat