自己创建了个button，怎么没有在Form上显示呀，求指导一下
delphi吧
全部回复
仅看楼主
level 10
嘻哈泥鳅 楼主
[哈哈]
2016年08月30日 08点08分 1
level 10
嘻哈泥鳅 楼主
type
TForm1 = class(TForm)
procedure BtnCreate(sender:Tobject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.BtnCreate(sender: Tobject);
var
param: Tmybtn;
begin
param := Tmybtn.Create(self);
param.Parent := self.Parent;
end;
end.
2016年08月30日 08点08分 6
level 10
嘻哈泥鳅 楼主
type
Tmybtn = class(Tbutton);
type
TForm1 = class(TForm)
procedure BtnCreate(sender:Tobject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.BtnCreate(sender: Tobject);
var
param: Tmybtn;
begin
param := Tmybtn.Create(self);
param.Parent := self.Parent;
end;
end.
2016年08月30日 08点08分 7
level 10
嘻哈泥鳅 楼主
怎 发个帖子 老被清到回收站呀[汗]
2016年08月30日 08点08分 8
吧务
level 14
BambooCaep
left,top,visible
2016年08月30日 10点08分 9
嘻哈泥鳅
谢谢 指导。[哈哈]
2016年08月31日 09点08分
level 12
ayi033
Param.Parent := Self;
不是Self.Parent;
2016年08月31日 04点08分 10
嘻哈泥鳅
把param的parent 变成form1，也没有在form上显示出这个Btn的
2016年08月31日 05点08分
嘻哈泥鳅
您那里可以显示吗、
2016年08月31日 05点08分
ayi033
@嘻哈泥鳅 那是因为你根本就没有执行btnCreate这个过程.
2016年08月31日 07点08分
嘻哈泥鳅
@ayi033 嗯嗯，我知道了的，没有执行这个程序的 谢谢了[哈哈]
2016年08月31日 07点08分
1