procedure TForm1.FormResize(Sender: TObject);
begin
  ComboBox1.Width := TWinControl(Sender).ClientWidth - ComboBox1.Left * 2;
end;

解决方案 »

  1.   

    No.2
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      ComboBox1.Anchors := [akLeft,akTop,akRight];
    end;
      

  2.   

    No.2
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      ComboBox1.Anchors := [akLeft,akTop,akRight];
    end;
      

  3.   

    COMBOX控件是放在TOOLBAR上,前面还有按钮(如IE),
    按你说的,效果不是如IE中地址栏的,还有更好的办法吗?
    谢先!
      

  4.   

    你在combo box下放一个panel,然后把combo box的anchors的alleft, altop, alright, albottom四个属性全设为true就行了。