18-09-2025, 01:46 AM
23-09-2025, 07:20 PM
(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;