Mit Englischkenntnissen hättest Du weniger Probleme:
to hover = schweben
Delphi-Quellcode:
procedure TForm1.Button8Enter(Sender: TObject); // Click
begin
Windows.Beep(1500,100);
end;
procedure TForm1.Button8MouseEnter(Sender: TObject); // Cursor im Button-Bereich
begin
Windows.Beep(2000,100);
end;
procedure TForm1.Button8MouseLeave(Sender: TObject); // Cursor verlässt Button-Bereich
begin
Windows.Beep(1500,100); Windows.Beep(1500,100);
end;
Die
Unit ColorButton hat auch ein HoverColor:
http://delphi.about.com/library/code/ncaa061104a.htm