+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : SetCursorPos (/showthread.php?tid=12985)
SetCursorPos - عَمر - 18-09-2025
السلام عليكم
كود :
SetCursorPos(Edit1.Text,Edit2.Text);ما سبب عدم الاستجابة
حتى لو من اداة اخرى اريده ان يقرا من اداة مهما كانت
XE2
RE: SetCursorPos - New pad - 23-09-2025
(18-09-2025, 01:46 AM)عَمر كتب : السلام عليكم
كود :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;