kein Drag and Drop nach Esc-Tasten Emulation

[Gambit]

Hallo,

wenn ich folgenden Code ausführe um nach Ablauf einer best. Zeit die Esc-Taste zu emulieren, kann ich kein Drag and Drop mehr machen also zB. Icons auf dem Desktop verschieben geht nicht mehr:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  keybd_event(VK_ESCAPE, MapVirtualKey(VK_ESCAPE, 0), 0, 0);
  keybd_event(VK_ESCAPE, MapVirtualKey(VK_ESCAPE, 0), VK_ESCAPE, 0);
  Timer1.Interval:=0;
  startTimerBtn.Enabled:= true;
end;

Hat jemand 'ne Ahnung woher das kommt?

Gruß

Gambit

[sniper_w]

Vielleich hast du gerade noch ein Bug in Win32 endeckt.