Einzelnen Beitrag anzeigen

Gambit

Registriert seit: 28. Mai 2003
680 Beiträge
 
Delphi 7 Professional
 
#1

kein Drag and Drop nach Esc-Tasten Emulation

  Alt 20. Feb 2005, 13:50
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
  Mit Zitat antworten Zitat