unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons,Clipbrd ;//加上这个单元type
TForm1 = class(TForm)
BitBtn1: TBitBtn;//这个不会丢了吧!!!
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
cp:TComponent;
begin
RegisterClasses([TBitbtn]);
Clipboard.SetComponent(bitbtn1);
FreeAndNil(bitbtn1);
cp:=Clipboard.GetComponent(self,self);//没有啊
TBitbtn(cp).left:=100;
TBitbtn(cp).top :=110;
UnRegisterClasses([TBitbtn]);
end;
看上边的注解,D6通过啊
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons,Clipbrd ;//加上这个单元type
TForm1 = class(TForm)
BitBtn1: TBitBtn;//这个不会丢了吧!!!
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
cp:TComponent;
begin
RegisterClasses([TBitbtn]);
Clipboard.SetComponent(bitbtn1);
FreeAndNil(bitbtn1);
cp:=Clipboard.GetComponent(self,self);//没有啊
TBitbtn(cp).left:=100;
TBitbtn(cp).top :=110;
UnRegisterClasses([TBitbtn]);
end;
看上边的注解,D6通过啊
你给的注释部分在我这里完整,我用的也是D6。
你用的是什么OS?