Tastendruck -> Mausklicks

[patti]

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!

[Saturos]

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;

[DeddyH]

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.

[Saturos]

Nein es funktioniert auch so nicht. der Timer läuft und läuft ....

[DeddyH]

Dann schalt den Timer doch mal im Timer-Event selbst aus. Ich versteh eh nicht, wozu Du soviele Variablen brauchst.

[patti]

In deinem Code-Schnipsel bleibt immer noch anaus ständig true und wenn du schreibst:

Delphi-Quellcode:

if anaus=true then
      timer1.Enabled:=true
    else if klick then
     timer1.Enabled:=false;
    end;

Dann bleibt der Timer enabled. Schaltest du anaus irgendwann auch auf false?

[Saturos]

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 ( verdammt das geht auch direkt)
curs: speichert nur die Zeigerposition

[DeddyH]

Also dient anaus dazu, zu ermitteln, ob Du auf den Hotkey reagieren willst?

[Saturos]

Genau das.

[DeddyH]

Delphi-Quellcode:

procedure TForm1.WMHotKey(var Message:TMessage);
begin
   If (Message.wParam=HotKeyID) and anaus then begin...

Erscheint mir erstmal logischer.