Буфер обмена

← →
Monak (2002-11-06 20:51) [0]

Народ, помогите скопировать в буфер обмена текст. Для просоты приведите пример как полностью скопировать в буфер Richedit1, он не пустой!!!!!

← →
Alex4444444444 (2002-11-06 20:52) [1]

Clipboard.AsText

← →
Monak (2002-11-06 20:57) [2]

это копирование только одной строки!

← →
Alex4444444444 (2002-11-06 21:00) [3]

WM_COPY?

← →
Alex4444444444 (2002-11-06 21:03) [4]

A window should use the clipboard when cutting, copying, or pasting data. A window places data on the clipboard for cut and copy operations and retrieves data from the clipboard for paste operations. The following sections describe these operations and related issues.

To place data on or retrieve data from the clipboard, a window must first open the clipboard by using the OpenClipboard function. Only one window can have the clipboard open at a time. To find out which window has the clipboard open, call the GetOpenClipboardWindow function. When it has finished, the window must close the clipboard by calling the CloseClipboard
function.

To place information on the clipboard, a window first clears any previous clipboard content by using the EmptyClipboard function. This function sends the WM_DESTROYCLIPBOARD message to the previous clipboard owner, frees resources associated with data on the clipboard, and assigns clipboard ownership to the window that has the clipboard open. To find out which window owns the clipboard, call the GetClipboardOwner function.

After emptying the clipboard, the window places data on the clipboard in as many clipboard formats as possible, ordered from the most descriptive clipboard format to the least descriptive. For each format, the window calls the SetClipboardData function, specifying the format identifier and a global memory handle. The memory handle can be NULL, indicating that the window renders the data on request. For more information, see Delayed Rendering.

← →
Monak (2002-11-12 21:16) [5]

>Alex4444444444
Откуда выдер последнее??

procedure StrToClipbrd ( StrValue: String );
var
S: string;
hMem: THandle;
pMem: PChar;
begin
hMem := GlobalAlloc(GHND or GMEM_SHARE, Length(StrValue) + 1);
if hMem <> 0 then
begin
pMem := GlobalLock(hMem);
if pMem <> nil then
begin
StrPCopy(pMem, StrValue);
GlobalUnlock(hMem);
if OpenClipboard(0) then
begin
EmptyClipboard;
SetClipboardData(CF_TEXT, hMem);
CloseClipboard;
end
else
GlobalFree(hMem);
end
else
GlobalFree(hMem);
end;
end;

← →
Alex44 (2002-11-13 00:46) [7]

To Monak:
Iz help"a, otkuda zhe eshe? Tol"ko nado ne F1 zhat", a pojti v Delphi 6/Help/MS SDK Help Files/Win32 SDK Reference
Tam vse otlichno ishetsya

← →
Mirolex (2002-11-13 04:08) [8]

RichEdit1.SelectAll;
RichEdit1.CopyToClipboard;
Edit1.Clear;
Edit1.PasteFromClipboard;
RichEdit1.SetFocus;

Это все.

Буфер обмена Найти похожие ветки