Paste or copy the content of Tmemo

Kembali Ke Posting Sebelumnya Pada Ignore Ctrl+V keys in Memo maka kali ini saya Bahas Mengenai Cara COpy dan PAste Di TMemo. Dalam suatu pembuatan program dalam Borland Delphi, berikut ini menggunakan TMemo (Memo1)  dengan 2 (dua) TButton (Button1 dan Button2) dan masukan C0d3 Program dalam Properties Event OnClick. Berikut Contoh Programnya :

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.SelectAll;
  Memo1.CopyToClipboard;
  Memo1.Clear;
end;


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

Bila Telah Selesai  RUN dengan Menekan F9 (Compiler) Project, Ok sekian Tutorial Delphinya Selamat Mencoba.  ^_^