![]() |
Re: Tastendruck -> Mausklicks
Außerdem veränderst du (soweit ich das jetzt richtig gesehen habe) die Variable "anaus" gar nicht. Diese bleibt bei dir immer true, der zweite "Block" wird allein deswegen nie ausgeführt!
|
Re: Tastendruck -> Mausklicks
Hmmm, das liegt daran, dass die Unterteilung net hinhaut. Das, wo anaus überprüft wird, ist noch der erste Block.
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); if anaus=true then timer1.Enabled:=true else if klick then //2.Block timer1.Enabled:=false; end; end; end; |
Re: Tastendruck -> Mausklicks
Delphi-Quellcode:
Versuch es mal so.
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; |
Re: Tastendruck -> Mausklicks
Nein es funktioniert auch so nicht. der Timer läuft und läuft ....
|
Re: Tastendruck -> Mausklicks
Dann schalt den Timer doch mal im Timer-Event selbst aus. Ich versteh eh nicht, wozu Du soviele Variablen brauchst.
|
Re: Tastendruck -> Mausklicks
In deinem Code-Schnipsel bleibt immer noch anaus ständig true und wenn du schreibst:
Delphi-Quellcode:
Dann bleibt der Timer enabled. Schaltest du anaus irgendwann auch auf false?
if anaus=true then
timer1.Enabled:=true else if klick then timer1.Enabled:=false; end; |
Re: Tastendruck -> Mausklicks
:)
anaus: da gibt es einen Button, der das steuert. Also auch, ob bei Drücken des Hotkeys was läuft oder net. klick: soll dazu dienen, dass in den Bedingungen erkannt wird, ob der timer läuft oder nicht (:wall: verdammt das geht auch direkt) curs: speichert nur die Zeigerposition |
Re: Tastendruck -> Mausklicks
Also dient anaus dazu, zu ermitteln, ob Du auf den Hotkey reagieren willst?
|
Re: Tastendruck -> Mausklicks
Genau das.
|
Re: Tastendruck -> Mausklicks
Delphi-Quellcode:
Erscheint mir erstmal logischer.
procedure TForm1.WMHotKey(var Message:TMessage);
begin If (Message.wParam=HotKeyID) and anaus then begin... |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:48 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz