Guten Morgen.
Ich möchte eine Aktion ausführen, wenn sich der Mauscursor über einem Label befindet - das klappt auch so:
Delphi-Quellcode:
procedure TWinForm.Panel1_MouseEnter(sender: System.Object; e: System.EventArgs);
begin
(Sender as System.Windows.Forms.Control).BackColor := System.Drawing.Color.Red;
end;
Jeztt möchte ich das Ganze aber mit einer Verzögerung unter Verwendung eines Timers haben:
Delphi-Quellcode:
procedure TWinForm.Panel1_MouseEnter(sender: System.Object; e: System.EventArgs);
begin
Timer1.Enabled := true;
end;
procedure TWinForm.Timer1_Tick(sender: System.Object; e: System.EventArgs);
begin
Timer1.Enabled := false;
(?????).BackColor := System.Drawing.Color.Red;
end;
Wie kann ich in Timer1.Tick nun feststellen, über welchem Control sich der Mauscursor befindet?
Vielen Dank im Voraus.
Gruß Jürgen