ComboBox1.Items := MyStringList;

解决方案 »

  1.   

    ComboBox.Items.Text := StringList.Text;
      

  2.   

    前提是你已经创建了MyStringList对象
      

  3.   

    //TStrings是一个虚类,应该用TStringlist,该类是从TStrings继承过来的。
    //下面是测试程序,用了一个button,一个combobox
    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;type
      TForm1 = class(TForm)
        ComboBox1: TComboBox;
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
    var
      strList:TStringList;
    begin
      strList:=TStringList.Create;
      strList.Add('xxx');
      combobox1.Items:=strList;
      strList.Free;
    end;end.
      

  4.   

    我是向继承tcombobox,做一个控件mycombobox,因为我需要两个items
    怎么做?
      

  5.   

    我是直接继承了tstringlist对象,然后assign了一下set方法,基本可以达到目的,不知ouyang75928(Borland是我一生所爱)所说的addobject方法怎么用?能不能说得稍微详细一点?谢谢