[Delphi],,Trzymanie" prawego przycisku myszki

Jak zrobic taki programik, żeby po naciśnięciu jakiejś kombinacji klawiszów np: Ctrl+1 program ,,trzymał" prawy przycisk myszki do momentu ponownego naciśnięcia tej kombinacji.
Myślałem o czymś takim:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=#33 then //trzymaj RMB end;
i...
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=#33 then //puść RMB end;
Użytkownik prondzyk edytował ten post 09 sierpień 2007, 12:24

---

No to chyba dobrze myślałeś :-) W czym masz problem?

// Czyli kod powinien wyglądać tak:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var Pos: TPoint; begin if (key=#33) then begin GetCursorPos(Pos); mouse_event(MOUSEEVENTF_RIGHTDOWN, Pos.X, Pos.Y, 0, 0); end; end; procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var Pos: TPoint; begin if (key=#33) then begin GetCursorPos(Pos); mouse_event(MOUSEEVENTF_RIGHTUP, Pos.X, Pos.Y, 0, 0); end; end;
Użytkownik Capellini edytował ten post 09 sierpień 2007, 18:36
Wielkie dzięki:)

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl