former, после отлавливания этой комбинации клавиш нужен код помещающий текст в буфер, про это автор и спрашивал.
MacTep,
| Код |
uses ClipBrd;
procedure PutStringIntoClipBoard(const Str: WideString);
var Size:Integer; Data:THandle; DataPtr:Pointer;
begin
Size:=Length(Str);
if Size=0 then exit;
if not IsClipboardFormatAvailable(CF_UNICODETEXT) then
Clipboard.AsText:=Str
else begin
Size:=Size shl 1 + 2;
Data:=GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Size);
try
DataPtr:=GlobalLock(Data);
try
Move(Pointer(Str)^, DataPtr^, Size);
Clipboard.SetAsHandle(CF_UNICODETEXT, Data);
finally
GlobalUnlock(Data);
end;
except
GlobalFree(Data);
raise;
end;
end;
end;
|
пример PutStringIntoClipBoard(memo1.text); |
