1.控件创建以后位置你可以自己调(根据Left,Top,Height,Width等属性) for Example: procedure AddCheckBox(PageNo,No:integer;Name,Caption:String;Checked:Boolean); begin CheckBox:=TCheckBox.Create(Self); Checkbox.Parent:=pgform.Pages[PageNo]; CheckBox.Name:='Chb'+Name; CheckBox.Caption:=Caption; CheckBox.Checked:=Checked; CheckBox.Width:=100; CheckBox.Alignment:=taRightJustify; //第一个CheckBox的Top值 //No以0开始 if No Mod 2=0 then begin lnleft:=10; lnTop:=lnTop+30; end else begin lnleft:=230; end; CheckBox.Left:=lnLeft; CheckBox.Top:=lnTop; Self.Height:=lnTop+50; end;
for Example:
procedure AddCheckBox(PageNo,No:integer;Name,Caption:String;Checked:Boolean);
begin
CheckBox:=TCheckBox.Create(Self);
Checkbox.Parent:=pgform.Pages[PageNo];
CheckBox.Name:='Chb'+Name;
CheckBox.Caption:=Caption;
CheckBox.Checked:=Checked;
CheckBox.Width:=100;
CheckBox.Alignment:=taRightJustify;
//第一个CheckBox的Top值 //No以0开始
if No Mod 2=0 then
begin
lnleft:=10;
lnTop:=lnTop+30;
end
else
begin
lnleft:=230; end;
CheckBox.Left:=lnLeft;
CheckBox.Top:=lnTop;
Self.Height:=lnTop+50;
end;
bb.Height:=strtoint(edit3.Text)
bb.Width :=strtoint(edit4.Text)
bb0.ShowModal ;我同事用同样的代码可以实现,可我的不行,是不是需要设置什么属性呢?