[delphi]Kopiowanie zawartość memo do schowka

Jak skopiować za pomocą buttonu, zawartość memo do schowka?

---

procedure TForm1.Button1Click(Sender: TObject); begin Memo1.CopyToClipboard; end;
Użytkownik sauron edytował ten post 11 sierpień 2006, 14:26

procedure TForm1.Button1Click(Sender: TObject); begin Memo1.CopyToClipboard; end;
Niestety, żeby skopiować z memo trzeba zaznaczyć ten tekst, a ja chcę bez zaznaczania :excl:
Więc jak??

memo1.SelectAll; //?I nastepnie wywolujesz CopyToClipboard.

A pozniej mozesz dacmemo1.SelLength := 0;odznaczy Ci tekst.

---

memo1.SelectAll; //?I nastepnie wywolujesz CopyToClipboard.

A pozniej mozesz dacmemo1.SelLength := 0;odznaczy Ci tekst.
DZIĘKI! DZIAŁA :)

Uses Clipbrd; Clipboard.Open; try Clipboard.Clear; Clipboard.SetTextBuf(PAnsiChar(Memo1.Lines.Text)); finally Clipboard.Close; end;

@down: yy to jest przecież to, co napisałem. Poza tym, nie potrzebnie tworzysz zmienną tclipboard.
Użytkownik DJ_ProG edytował ten post 12 sierpień 2006, 09:59
Uses Clipbrd; var clipboard:tclipboard; begin Clipboard:=TClipboard.Create; Clipboard.AsText:=Memo1.Lines.Text; Clipboard.Free; end;

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl