Hallo,
ich nutze WindowFromPoint in einem Timer um zu prüfen, ob die Maus über einem bestimmten Element schwebt, da dieses kein OnExit Ereignis hat.
Das funktioniert auch sehr gut, bis Strg+Alt+Entf gedrückt wird. Dann kommt eine
Exception
Zitat:
---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt Project1.exe ist eine
Exception der Klasse EOSError aufgetreten. Meldung: 'Ein Aufruf einer Betriebssystemfunktion ist fehlgeschlagen'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
und hinterher
Zitat:
Ein Aufruf einer Betriebssystemfunktion ist fehlgeschlagen.
Leider kann man diese
exception nicht mit try except abfangen.
Ganz leicht kann man das mit folgendem Codeschnipsel nachbauen
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := IntToStr(WindowFromPoint(Mouse.CursorPos));
end;
Fällt euch vielleicht ein, wie man die
Exception umgehen kann?
Gruß Philip