+- 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=12955)
سؤال بخصوص الدالة SetCursorPos المتعلقه بالماوس - عَمر - 03-08-2025
السلام عليكم
اود ان تقرأ الدالة من listbox او edit او اي اداة يوضع فيها x,y الخاص باحداثيات الماوس
كود :
SetCursorPos(x,y);بحيث اقراها متتاليه
إقتباس :SetCursorPeos reading from list
delphi 7
RE: سؤال بخصوص الدالة SetCursorPos المتعلقه بالماوس - عَمر - 07-08-2025
قرائة ممتاليه داخل listbox
كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False; // Disable timer to avoid re-entry during processing
try
// Process the currently selected item
if ListBox1.ItemIndex <> -1 then
begin
// Example: Display the selected item
ListBox1.Items[ListBox1.ItemIndex];
// Add your specific processing logic here
end;
// Move to the next item
if ListBox1.ItemIndex < ListBox1.Items.Count - 1 then
begin
ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
end
else
begin
ListBox1.ItemIndex := -1; // Reset or indicate end of list
end;
finally
// Re-enable timer if there are more items to process
Timer1.Enabled := (ListBox1.ItemIndex > -1);
end;عند الضغط ع الزر يعمل الكود السابق
كود :
Button1Clickكود :
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.ItemIndex := 0; // Start from the first item
Timer1.Enabled := True;
end;Timer = 100
كود :
procedure TForm1.Timer1Timer(Sender: TObject);
var
pt : TPoint;
HH : hWnd;
begin
GetCursorPos(pt);
Edit1.Text := inttostr(pt.x)+' : '+inttostr(pt.y);
end;Timer = 100
كود :
procedure TForm1.Timer4Timer(Sender: TObject);
begin
Memo1.Lines.Add(Edit1.Text);
end;__________________________________________________________________________________________
كود :
var
CurrentValue: Integer;
NewValue: string;
begin
// تأكد من أن مربع النص يحتوي على عدد صحيح
if TryStrToInt(Edit1.Text, CurrentValue) then
begin
// قم بإضافة 5 إلى القيمة الحالية
CurrentValue := CurrentValue + 5;
// حول القيمة الجديدة إلى سلسلة نصية
NewValue := IntToStr(CurrentValue);
// قم بتحديث قيمة مربع النص
Edit1.Text := NewValue;
end
else
begin
// إذا لم يكن النص في مربع النص عددًا صحيحًا
ShowMessage('يرجى إدخال عدد صحيح في مربع النص.');
end;
end;click
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
SetCursorPos(686,313); // Move the cursor to the desired position
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); // Simulate left button down
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); // Simulate left button up
end;التعديل ع السطر اضافة
كود :
procedure TForm1.AddClick(Sender: TObject);
var
Str1 : String;
begin
Str1 := Edit1.Text;
insert(Edit3.Text+' : ' , Str1, 9 );
Edit2.Text := Str1;
ListBox1.Items.Add(Edit2.Text);
end;