03-09-2014, 03:15 PM
03-09-2014, 03:55 PM
السلام عليكم
إستعمل
أو
إستعمل
PHP كود :
uses
Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := ClipBoard.AsText;
end;
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;
04-09-2014, 10:40 AM
اولا اشكرك اخي الكريم لقد رأيت في بعض المواقع الاجنبية ان تكتب في الميمو فتظهر في النوت باد فاردت ان اعكس الطريقة
04-09-2014, 02:56 PM
ما وضعته في رد سابق
هو إجابة لسؤالك "نسخ نص من الويندوز الى ال memo"
إدا كنت تريد أردت شيئا آخر
فوضح أكثر
هو إجابة لسؤالك "نسخ نص من الويندوز الى ال memo"
إدا كنت تريد أردت شيئا آخر
فوضح أكثر
05-09-2014, 02:31 PM
اخي الكريم
اكتب في النوت باد وفي نفس الوقت تظهر الميمو ما اكتبه اي كأنني اكتب في الحدث on change ولكن للنوت باد اي نسخ فوري الى الميمو
اكتب في النوت باد وفي نفس الوقت تظهر الميمو ما اكتبه اي كأنني اكتب في الحدث on change ولكن للنوت باد اي نسخ فوري الى الميمو
07-09-2014, 12:15 AM
هذا مثال للتوضيح
ضع مكون Timer و Memo
وفي الحدث OnTimer ضع
ضع مكون Timer و Memo
وفي الحدث OnTimer ضع
PHP كود :
var
hNotepad, hMemo: THandle;
Text: string;
TextLength: Integer;
begin
hNotepad := FindWindow('Notepad', nil);
if hNotepad <> 0 then
begin
hMemo := FindWindowEx(hNotepad, 0, 'Edit', nil);
TextLength := SendMessage(hMemo, WM_GETTEXTLENGTH, 0, 0);
SetLength(Text, Succ(TextLength));
SendMessage(hMemo, WM_GETTEXT, Succ(TextLength), LongInt(PChar(Text)));
Memo1.Text := Text;
end;
end;