Y yue_shan Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-08 #1 我用循环在一个窗体上做了10个SpeedButton,再删除它们,然后需要时又循环生成,这时 就显示不出来了,哪位高手指点一下,在线等待
T twos Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-08 #2 设计时做的控件,最好不要删除, 除非你自己创建的东西,才可以自己删除。 自己创建的东西,比如TSpeedButton.Create(ownerControl) 其中ownerControl是控件的所有着 然后还要赋Parent,即控件的父控件
设计时做的控件,最好不要删除, 除非你自己创建的东西,才可以自己删除。 自己创建的东西,比如TSpeedButton.Create(ownerControl) 其中ownerControl是控件的所有着 然后还要赋Parent,即控件的父控件
L LeeChange Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-08 #3 把生成用的代码贴出来,八层错在Parent之类上了.
K kim64 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-08 #5 procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:= ComponentCount -1; while i >=0 do begin if Components is TSpeedButton then begin ShowMessage(Components.Name); Components.Free; end; dec(i); end; end;
procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:= ComponentCount -1; while i >=0 do begin if Components is TSpeedButton then begin ShowMessage(Components.Name); Components.Free; end; dec(i); end; end;
P pcc_mmz1 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-08 #8 to yue_shan: 首先你有没有指定speedbutton的parent属性值? 如果没有指定它的父级所有者,它根本不知道在什么地主显示。 你把这句写上看看。 speedbutton.parent :=self;
to yue_shan: 首先你有没有指定speedbutton的parent属性值? 如果没有指定它的父级所有者,它根本不知道在什么地主显示。 你把这句写上看看。 speedbutton.parent :=self;
L lienzhu Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-08 #9 如果 speedbutton.parent :=self;不能显示,在加入一句 speedbutton.show;