SetCursorPos

[عَمر]

السلام عليكم

كود :

SetCursorPos(Edit1.Text,Edit2.Text);

ما سبب عدم الاستجابة
حتى لو من اداة اخرى اريده ان يقرا من اداة مهما كانت
XE2

[New pad]

السلام عليكم

كود :

SetCursorPos(Edit1.Text,Edit2.Text);

ما سبب عدم الاستجابة
حتى لو من اداة اخرى اريده ان يقرا من اداة مهما كانت
XE2

السلام عليكم

كود :

procedure TForm1.btn2Click(Sender: TObject); var p: TPoint; s1, s2: string; begin s1 := Edit1.Text; s2 := Edit2.Text; p := Point(StrToIntDef(s1, 0),             StrToIntDef(s2, 0)); SetCursorPos(p.X, p.Y); end;