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;