Delphi-Fehler im OnExit (Verlust der Tastatursteuerung)

[Schubi]

Das wäre eine unelegante, aber funktionierende Lösung:

Delphi-Quellcode:

Procedure KlickPoint(x,y : Integer);
var
  mm : TPoint;
begin
  GetCursorPos(mm);
  SetCursorPos(x,y);
  mouse_event(MOUSEEVENTF_leftDOWN,x,y,0,0);
  mouse_event(MOUSEEVENTF_leftUP,x,y,0,0);
  SetCursorPos(mm.x,mm.y)
end;

procedure TForm1.Edit2Enter(Sender: TObject);
var
  p : TPoint;
begin
  p.X := (Sender as TControl).Left;
  p.Y := (Sender as TControl).Top;
  KlickPoint(ClientToScreen(p).X+(Sender as TControl).Width-2,ClientToScreen(p).Y+2);
end;