+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اقوم بعملية لصق CTRL V برمجيا في اي برنامج (/showthread.php?tid=8728)
كيف اقوم بعملية لصق CTRL V برمجيا في اي برنامج - messaad - 21-06-2017
السلام عليكم و رحمة الله و بركاته
كيف اقوم بعملية لصق CTRL V برمجيا في اي برنامج .
RE: كيف اقوم بعملية لصق CTRL V برمجيا في اي برنامج - أبو معاذ - 21-06-2017
وعليكم السلام ورحمة الله وبركاته ،
أضف الوحدة ClipBrd لقائمة Uses.
لنسخ صورة :
كود :
procedure TForm1.Copier1Click(Sender: TObject);
begin
Clipboard.Assign(Image1.Picture);
end;للصق صورة :
كود :
procedure TForm1.Coller1Click(Sender: TObject);
begin
Image1.Picture.Assign(Clipboard);
end;لنسخ نص :
كود :
procedure TForm1.Copier1Click(Sender: TObject);
begin
Memo1.CopyToClipboard;
end;للصق نص :
كود :
procedure TForm1.Coller1Click(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;RE: كيف اقوم بعملية لصق CTRL V برمجيا في اي برنامج - messaad - 21-06-2017
شكرا اخي على ردك الجميل ولكن اخي اردت نسخ من MEMO و لصقه في حقل اسم المستخدم بالموقع الالكتروني مثلا في الحدث
SetCursorPos(419, Screen.Height-499); //set cursor to Start menu coordinates
mouse_event(MOUSEEVENTF_LEFTDOWN,0, 0, 0, 0); //press left button
mouse_event(MOUSEEVENTF_LEFTUP,0, 0, 0, 0); //release left button
;EDIT1.SelectAll
;EDIT1.CopyToClipboard;
فأردت لصق محتوى الحافظة في حقل الموقع
شكرا
RE: كيف اقوم بعملية لصق CTRL V برمجيا في اي برنامج - karika2 - 26-06-2017
طب انت ذي ما استخدمت mouse_event و SetCursorPos تقدر تستخدم keybd_event لارسال امر ctrl+v
هكذا
keybd_event(Ord(17), 0, 0, 0);
keybd_event(Ord(86), 0, 0, 0);