Текст из Memo в буфер обмена

[zver777]

Всем привет.
Может кто-нибудь знает, как текст из Memo поместить в буфер обмена(как при нажатии копировать)?

[uberchel]

  Memo1.SelectAll;
  Memo1.CopyToClipboard;

[zver777]

Сообщение от uberchel

Memo1.CopyToClipboard;

Но тут надо сначала выделить текст, и только тогда действует.
Возможно ли сделать такое без выделения текста?

Если нет, то как сделать чтобы при нажатии весь текст выделялся?

[unicode]

Через Action делай

[zver777]

Можно поподробней про action, а то я не мастер в Delphi.

Всем спасибо. Вопрос решён.

[pro100-delphi]

uberchel - ты не сказал главное!!! для начала надо добавить модуль clipbrd.pas в uses!!!

При запуске Delphi, uses выглядит вот так:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

А должно быть так (вроди бы надо clipbrd или clipbrd.pas прописать ещё не помню):

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, clipbrd;

Если модуль clipbrd.pas не добавить ошибку будет писать))

[DomiNick]

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

...

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

Делфи 7... Никаких ошибок...

[Stilet]

Но тут надо сначала выделить текст,

А что мы любим невнимательно посты читать?

[DomiNick]

Воспользовался поиском... Обнаружил процедуру...

Function SetClipboardText(Wnd: HWND; Value: String): BooLean;
Var hData: HGlobal; pData: Pointer; Len: Integer;
Begin
Result:=True;
If OpenClipboard(Wnd) Then
      Begin
      Try
            Len:=Length(Value)+1;
            hData:=GlobalAlloc(GMEM_MOVEABLE Or GMEM_DDESHARE, Len);
            Try
                  pData:=GlobalLock(hData);
                  Try
                        Move(PChar(Value)^, pData^, Len);
                        EmptyClipboard;
                        SetClipboardData(CF_Text, hData);
                  Finally
                        GlobalUnlock(hData);
                  End;
            Except
                  GlobalFree(hData);
                  Raise
            End;
      Finally
            CloseClipboard;
            End;
      End
Else
      Result:=False;
End;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
SetClipboardText(Handle, Memo1.Text);
End;