|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
Delphi 11 Alexandria
|
Re: Tastendruck -> Mausklicks
16. Dez 2007, 12:31
Delphi-Quellcode:
procedure TForm1.WMHotKey(var Message:TMessage);
begin
If Message.wParam=HotKeyID then begin
if not klick then begin//1.Block
klick:= true;
GetCursorPos(curs);
end;
if anaus then //2.Block
timer1.Enabled:=true
else if klick then
timer1.Enabled:=false;
end;
end;
Versuch es mal so.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|