So ich habe selber eine Lösung erarbeitet...
Folgende Procedur geschrieben:
Delphi-Quellcode:
procedure Tfrm_TestUnit.OnAppMessage(var M: TMsg; var Handled: Boolean);
begin
if (M.Message = WM_LBUTTONDOWN) or (M.Message = WM_RBUTTONDOWN) then
begin
MyMouseKlick := True;
end;
end;
Somit kann ich bei dem Ereignis onExit vorgängig eingreifen.
Jeweils beim OnEnter des Feldes MyMouseKlick auf False stellen.
und dann beim OnExit mit if MyMouseKlick = False .....
Vielleichts hilfs mal jemandem weiter..
Gruss Jerry