5,388
社区成员
发帖
与我相关
我的任务
分享组件随窗体的变化而随之变化，并且位置不变？？
我窗体内的组件是按最大时摆设的，里面有两个panel,在panel上有一些控件，但是当我最小化时，有些控件就看不到了，怎么样才能让控件随窗体的变化而随之变化呀？？并且最小化时也能看到全部控件，请指教，代码写的全一点？？多谢，分不够可以追问再加
...全文
请发表友善的回复…
发表回复
chl_ccssddnn 2003-08-31
- 打赏
- 举报
anchors的子属性都设置为true
大地精灵 2003-08-31
- 打赏
- 举报
楼上的可以满足你的要求了
tonylk 2003-08-31
- 打赏
- 举报
var
f:real;
i:Integer;
begin
f:=1.234;
i:=Reound(f);
f:real;
i:Integer;
begin
f:=1.234;
i:=Reound(f);
languagefuck 2003-08-31
- 打赏
- 举报
我想在delphi中设置一个float型数值，怎么设呀？？我写float不对呀？？
zsy_good 2003-08-31
- 打赏
- 举报
设置这个属性anchors
或则在FormResize里面算按照比例来。
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i := 0 to form1.ComponentCount - 1 do
begin
TWinControl(form1.Components[i]).Width := ;
TWinControl(form1.Components[i]).Height := ;
end;
end;
或则在FormResize里面算按照比例来。
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i := 0 to form1.ComponentCount - 1 do
begin
TWinControl(form1.Components[i]).Width := ;
TWinControl(form1.Components[i]).Height := ;
end;
end;
