21-06-2017, 04:36 PM
21-06-2017, 05:45 PM
وعليكم السلام ورحمة الله وبركاته ،
أضف الوحدة ClipBrd لقائمة Uses.
لنسخ صورة :
للصق صورة :
لنسخ نص :
للصق نص :
أضف الوحدة 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;21-06-2017, 06:15 PM
شكرا اخي على ردك الجميل ولكن اخي اردت نسخ من 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;
فأردت لصق محتوى الحافظة في حقل الموقع
شكرا
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;
فأردت لصق محتوى الحافظة في حقل الموقع
شكرا
26-06-2017, 03:31 PM
طب انت ذي ما استخدمت mouse_event و SetCursorPos تقدر تستخدم keybd_event لارسال امر ctrl+v
هكذا
keybd_event(Ord(17), 0, 0, 0);
keybd_event(Ord(86), 0, 0, 0);
هكذا
keybd_event(Ord(17), 0, 0, 0);
keybd_event(Ord(86), 0, 0, 0);