剪切板类 TClipboard 定义在 Clipbrd 单元, 使用前先要 uses Clipbrd;
uses Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
var
clip: TClipboard;
begin
clip := TClipboard.Create; {建立}
clip.AsText := Self.Text; {把窗体标题放入剪切板}
ShowMessage(clip.AsText); {从剪切板读取, 返回结果是: Form1}
{因为剪切板是全局的, 此时可以在其他地方粘贴一试}
clip.Free; {释放}
end;
根据 Delphi 给我们提供的方便, 上面的例子可以简化为:
uses Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
begin
Clipboard.AsText := Text;
ShowMessage(Clipboard.AsText); {Form1}
end;
这个 Clipboard 是什么? 是不是和 Screen 一样的类型变量?
答案是否定的! Clipboard 只是个函数, 是一个无参函数, 是定义在 Clipbrd 单元的一个全局函数, 它返回一个 TClipboard 类型的变量, 当我看到这个函数的源码时, 真是感觉又学了 一招, 非常精巧的思路.
除了用 TClipboard.AsText 属性, 我们还可以使用 SetTextBuf 把文本放入剪切板、使用 GetTextBuf 读出剪切板中的文本.
uses Clipbrd;
{使用 SetTextBuf}
procedure TForm1.Button1Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Text)); {按参数类型要求, 需要转换一下}
ShowMessage(Clipboard.AsText); {Form1}
end;
{使用 GetTextBuf 就和使用 API 差不多, 需要给个缓冲区}
procedure TForm1.Button2Click(Sender: TObject);
var
arr: array[0..255] of Char;
begin
Clipboard.AsText := Text;
Clipboard.GetTextBuf(arr, Length(arr));
ShowMessage(arr); {Form1}
end;
{如果不给缓冲区, 那你自己得申请并释放内存}
procedure TForm1.Button3Click(Sender: TObject);
var
pc: PChar;
begin
Clipboard.AsText := Text;
GetMem(pc, 256); {申请内存}
Clipboard.GetTextBuf(pc, 256);
ShowMessage(pc); {Form1}
FreeMem(pc); {释放内存}
end;