نسخ نص من الويندوز الى ال memo

[rabihpascal]

السلام عليكم كيف انقل نص notepadاو wordpadالى memo1

[Agmcz]

السلام عليكم
إستعمل

PHP كود :

uses
  Clipbrd;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := ClipBoard.AsText;
end; 


أو

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.PasteFromClipboard;
end; 


[rabihpascal]

اولا اشكرك اخي الكريم لقد رأيت في بعض المواقع الاجنبية ان تكتب في الميمو فتظهر في النوت باد فاردت ان اعكس الطريقة

[Agmcz]

ما وضعته في رد سابق
هو إجابة لسؤالك "نسخ نص من الويندوز الى ال memo"
إدا كنت تريد أردت شيئا آخر
فوضح أكثر

[rabihpascal]

اخي الكريم
اكتب في النوت باد وفي نفس الوقت تظهر الميمو ما اكتبه اي كأنني اكتب في الحدث on change ولكن للنوت باد اي نسخ فوري الى الميمو

[Agmcz]

هذا مثال للتوضيح
ضع مكون 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;