大虾们，快帮我想想办法吧!

Question

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Clipbrd , Buttons;//QClipbrd->Clipbrd

Answer 1

ihihonline(小小->充电中……) 
我原来就是用的QClipbrd,就是有错误我才改成这个的

Answer 2

搞什么啊？我这儿明明是可以的啊，我的意思你就用CliPbrd
你给我把你的程序发过来
[email protected]

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Clipbrd, Buttons;type
  TForm1 = class(TForm)
    Button1: TButton;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
var
   cp:TComponent;
begin
   RegisterClasses([TButton]);
   Clipboard.SetComponent(button1);
   FreeAndNil(button1);
   cp:=Clipboard.GetComponent(self,self);
   TButton(cp).Caption :='GAME OVER';
   TButton(cp).Left := Form1.ClientWidth div 2;
   TButton(cp).Top := Form1.ClientHeight div 2;
   UnRegisterClasses([TButton]);
end;end.
好了

Answer 4

ihihonline(小小->充电中……) 
我按照你给我的方法解决了测试程序中的问题，可是我真正的程序中的问题依旧，我已经发给你了，请你帮我检查一下，谢谢了!!!

Answer 5

我测试了一下,你将qclipbrd改为clipbrd就ok啦！！！