Delphi kein Drag and Drop nach Esc-Tasten Emulation

Thema durchsuchen

Ansicht

Themen-Optionen

kein Drag and Drop nach Esc-Tasten Emulation

Ein Thema von Gambit · begonnen am 20. Feb 2005 · letzter Beitrag vom 20. Feb 2005

Vorheriger Beitrag

Nächster Beitrag

Gambit

Registriert seit: 28. Mai 2003
680 Beiträge

Delphi 7 Professional

kein Drag and Drop nach Esc-Tasten Emulation

20. Feb 2005, 14: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:

markieren

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