随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253


剪切板类 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;

posted on 2008-04-03 17:05  万一  阅读(...)  评论(...编辑  收藏