Tastendruck -> Mausklicks

[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;