dephi如何使用combox?

Question

我知道控件里有,但是还是希望某位大侠帮我写出来:我想知道下拉菜单如何添加? 跪求完全的代码.本人菜鸟

Answer 1

ComboBox1.Clear;
ComboBox1.Items.Add('这是第一条选项');
ComboBox1.Items.Add('这是第二条选项');
showmessage('现在共有'+InttoStr(ComboBox1.Items.Count)+'条选项');
showmessage('你选中了第'+InttoStr(ComboBox1.ItemIndex+1)+'条选项');

Answer 2

也可以直接在它的items属性里面增加

Answer 3

一、items属性增加
二、代码添加：
    ComboBox1.Clear;
    for i:=0 to (添加的数量)-1 do 
      begin
        
        ComboBox1.Items.Add('第i项');
        
      end;

Answer 4

ComboBox1.Clear;
ComboBox1.Items.Add('楼主);
ComboBox1.Items.Add('一楼的');
ComboBox1.Items.Add('二楼的');
ComboBox1.ItemIndex:=ItemIndex;//默认楼主、

Answer 5

procedure TForm1.FormCreate(Sender: TObject);
begin
  TheBitmap1 := TBitmap.Create;
  TheBitmap1.LoadFromFile('E:\Delphi Project\combobox\globe.bmp');
  TheBitmap2 := TBitmap.Create;
  TheBitmap2.LoadFromFile('E:\Delphi Project\combobox\video.bmp');
  TheBitmap3 := TBitmap.Create;
  TheBitmap3.LoadFromFile('E:\Delphi Project\combobox\gears.bmp');
  TheBitmap4 := TBitmap.Create;
  TheBitmap4.LoadFromFile('E:\Delphi Project\combobox\key.bmp');
  TheBitmap5 := TBitmap.Create;
  TheBitmap5.LoadFromFile('E:\Delphi Project\combobox\tools.bmp');
  ComboBox1.Items.AddObject('Bitmap1: Globe', TheBitmap1);
  ComboBox1.Items.AddObject('Bitmap2: Video', TheBitmap2);
  ComboBox1.Items.AddObject('Bitmap3: Gears', TheBitmap3);
  ComboBox1.Items.AddObject('Bitmap4: Key', TheBitmap4);
  ComboBox1.Items.AddObject('Bitmap5: Tools', TheBitmap5);end;
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  Bitmap: TBitmap;
  Offset: Integer;
begin
  with (Control as TComboBox).Canvas do
  begin
    FillRect(Rect);
    Bitmap := TBitmap(ComboBox1.Items.Objects[Index]);
    if Bitmap <> nil then
    begin
      BrushCopy(Bounds(Rect.Left + 2, Rect.Top + 2, Bitmap.Width,
                Bitmap.Height), Bitmap, Bounds(0, 0, Bitmap.Width,
                Bitmap.Height), clRed);
      Offset := Bitmap.Width + 8;
    end;
    { display the text }
    TextOut(Rect.Left + Offset, Rect.Top, Combobox1.Items[Index])
  end;
end;procedure TForm1.ComboBox1MeasureItem(Control: TWinControl; Index: Integer;
  var Height: Integer);
begin
  Height:= 20;
end;