+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : نسخ نص من الويندوز الى ال memo (/showthread.php?tid=6422)
نسخ نص من الويندوز الى ال memo - rabihpascal - 03-09-2014
السلام عليكم كيف انقل نص notepadاو wordpadالى memo1
نسخ نص من الويندوز الى ال memo - Agmcz - 03-09-2014
السلام عليكم
إستعمل
PHP كود :
uses
Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text := ClipBoard.AsText;
end;
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.PasteFromClipboard;
end;
نسخ نص من الويندوز الى ال memo - rabihpascal - 04-09-2014
اولا اشكرك اخي الكريم لقد رأيت في بعض المواقع الاجنبية ان تكتب في الميمو فتظهر في النوت باد فاردت ان اعكس الطريقة
نسخ نص من الويندوز الى ال memo - Agmcz - 04-09-2014
ما وضعته في رد سابق
هو إجابة لسؤالك "نسخ نص من الويندوز الى ال memo"
إدا كنت تريد أردت شيئا آخر
فوضح أكثر
نسخ نص من الويندوز الى ال memo - rabihpascal - 05-09-2014
اخي الكريم
اكتب في النوت باد وفي نفس الوقت تظهر الميمو ما اكتبه اي كأنني اكتب في الحدث on change ولكن للنوت باد اي نسخ فوري الى الميمو
نسخ نص من الويندوز الى ال memo - Agmcz - 07-09-2014
هذا مثال للتوضيح
ضع مكون 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;