我如何在一个控件创建的时候去改变它的大小呢?请指点一下!谢谢!

Question

我想在我的TFrame类的对象创建的时候用代码才去改变我的TFrame类对象的大小!不知道我该如何去做呢?谢谢!我曾经使用Constructor Create(Text:string); reintroduce ; overload;
这样的方法重载create控件,但是我发现,我没有代码去执行这个重载后的代码的,因此我想我的那个TFrame控件模块里面做一个获取该控件创建的消失,在获取到这个消息的时候我就去改变这个Tframe控件的大小!但是我不知道怎么做啊!
请各位指点一下啊!谢谢!

Answer 1

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var btn:TButton;
begin
 Btn:=TButton.Create(self);
 btn.parent:=self;
 btn.left:=x;
 btn.top:=y;
 btn.width:=btn.width+50;
 btn.height:=btn.height+i*2;
 btn.caption:=format('Button'+inttostr(i)+' at %d,%d',[x,y]);
 inc(i);
end;

Answer 2

>>>.......可能你误会了我的意思了!我的意思是说摆在窗体里面的控件,我想在它创建的时候....
                                          ...............       .........
                                          控件已存在了           还创建？？？？