mouse kodu

[ByKahin]

Yapmıs oldugum bir arastırma için acil bana söyle bir sey lazım.Mouseyi bir sol,bir sağ tus tıklatmam laızm.bunla ilgili bir seyler varsa sevinirim
.Simdiden tskler

[pasa_yasar]

Kod: Tümünü seç

var
  Form1: TForm1;
  Pt : TPoint;
implementation

{$R *.dfm}
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
begin
  Pt.x :=strtoint(edit2.Text); // x koordinatını gireceğin bölüm
  Pt.y :=strtoint(edit3.Text); // y koordinatını gireceğin bölüm.

  Pt := ClientToScreen(Pt);
  Pt.x := Round(Pt.x * (65535 / Screen.Width));
  Pt.y := Round(Pt.y * (65535 / Screen.Height));
  Mouse_Event(MouseEVENTF_ABSOLUTE or
              MouseEVENTF_MOVE,
              Pt.x,
              Pt.y,
              0,
              0);
  Mouse_Event(MouseEVENTF_ABSOLUTE or
              MouseEVENTF_LEFTDOWN,
              Pt.x,
              Pt.y,
              0,
              0);;
  Mouse_Event(MouseEVENTF_ABSOLUTE or
              MouseEVENTF_LEFTUP,
              Pt.x,
              Pt.y,
              0,
              0);;

[ByKahin]

tsk ederim.Fakat bunda her iki tıklamada varmı.Biraz Cahilimdir de

[Glen]

Her ikisi yok, LEFT leri RIGHT olarak degistirin. Artik her ikisi de var

[pasa_yasar]

Her ikisi yok, LEFT leri RIGHT olarak degistirin. Artik her ikisi de var

kodu iki kere çalıştırarak çift tıklamayı elde edebilirsin

[Glen]

Her ikisi yok, LEFT leri RIGHT olarak degistirin. Artik her ikisi de var

kodu iki kere çalıştırarak çift tıklamayı elde edebilirsin

Arkadasin sordugu Doubleclick degil, RIGHT ve LEFT tiklama.. dedigim gibi LEFT olanlari RIGHT yapin olur.