Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Буфер обмена-как до него добраться? [D5, WinXP]

Rifo © (2004-11-16 14:32:00)
Подскажите, как из поля Memo поместить текст в обычный Win-досовский буфер обмена, и наоорот.

Rifo (2004-11-16 17:28:00) [1]
Вы тут спорите, а всех проще и понятнее предложил Jeer (выше по тексту), и действительно работает!!!:
uses clipbrd; Clipboard.AsText:=form1.Memo1.Text; и наоборот form1.Memo1.text:=Clipboard.AsText;

WondeRu (2004-11-16 15:59:00) [2]
Amoeba © (16.11.04 15:11) [7]
да я вообще в первый раз с буфером обмена работаю! Вот сам решил попробовать... получилось, хоть и через ж... Спасибо что в Хелп носом тыкнули ;) буду знать!

Jeer (2004-11-16 15:46:00) [3]
WondeRu © (16.11.04 14:47) [5]
uses clipbrd;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
cl : Tclipboard;
begin
cl := Tclipboard.Create;
cl.Open;
cl.SetTextBuf(PChar(memo1.lines.text));
cl.Close;
cl.Free;
end;

Непонятно для сего эти упражнения:)

property AsText: string;

Description

Use the AsText property to place text in and retrieve text from the clipboard. The clipboard must contain a string or an exception occurs. To determine if the clipboard contains a string, pass CF_TEXT to the HasFormat method.

Amoeba (2004-11-16 15:11:00) [4]
А вот пример к вышесказаному:

The following code copies the bitmap of a speed button named SpeedButton1 to the Clipboard:

Clipboard.Assign(SpeedButton1.Glyph);

И не надо изобретать велосипед.

Amoeba (2004-11-16 15:05:00) [5]

> WondeRu © (16.11.04 14:47) [5]
> uses clipbrd;
> {$R *.dfm}
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> cl : Tclipboard;
> begin
> cl := Tclipboard.Create;
> cl.Open;
> cl.SetTextBuf(PChar(memo1.lines.text));
> cl.Close;
> cl.Free;
> end;

А вот создавать объект класса TClipboard - это уже лишнее.
Читаем Help

Unit

clipbrd

Category

clipboard routines

function Clipboard: TClipboard;

Description

Delphi maintains a single instance of TClipboard for use whenever the application needs to directly access the clipboard object. If the application has never used the Windows clipboard, calling Clipboard creates a new instance of TClipboard. If the clipboard has already been used, Clipboard returns the previously created TClipboard object.

To use Clipboard and the TClipboard object, add Clipbrd to the uses clause .

WondeRu (2004-11-16 14:47:00) [6]
uses clipbrd; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var cl : Tclipboard; begin cl := Tclipboard.Create; cl.Open; cl.SetTextBuf(PChar(memo1.lines.text)); cl.Close; cl.Free; end;

Jeer (2004-11-16 14:45:00) [7]
Clipboard.AsText := Memo1.Text;
и наоборот.

WondeRu (2004-11-16 14:41:00) [8]
WondeRu © (16.11.04 14:36) [1]
memo1.lines.copytoclipboard
чет не то накатал!

Rifo (2004-11-16 14:39:00) [9]
СПАСИБА !!!

WondeRu (2004-11-16 14:36:00) [10]
memo1.lines.copytoclipboard

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »