beim wieder aktivieren klick auf Bild auslösen ?

[hathor]

Mit einer Maus-Bewegung das Fenster zu aktivieren ist einfach:

Delphi-Quellcode:

procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;