法国小费一般给多少:combobox 自绘

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ImgList, ComCtrls;type  TForm1 = class(TForm)    ComboBox1: TComboBox;    ImageList1: TImageList;    procedure FormCreate(Sender: TObject);    procedure ComboBox1DrawItem(Control: TWinControl; Index: Integer;      Rect: TRect; State: TOwnerDrawState);    procedure FormDestroy(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}var  Bits: array[0..3] of TBitmap;procedure TForm1.FormCreate(Sender: TObject);var  i: Integer;begin  for i := 0 to Length(Bits)-1 do  begin    Bits[i] := TBitmap.Create;    ImageList1.GetBitmap(i, Bits[i]);    ComboBox1.Items.Add(Format('Item %d', [i]));  end;  ComboBox1.Style := csOwnerDrawVariable;  ComboBox1.ItemHeight := Bits[0].Height + 4;  ComboBox1.ItemIndex := 0;end;procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;  Rect: TRect; State: TOwnerDrawState);begin  ComboBox1.Canvas.FillRect(Rect);  ComboBox1.Canvas.BrushCopy(Bounds(Rect.Left+2, Rect.Top+2, Bits[Index].Width, Bits[Index].Height),                              Bits[Index],                             Bounds(0, 0, Bits[Index].Width, Bits[Index].Height),                             clBlack);  ComboBox1.Canvas.TextOut(Rect.Left + 24, Rect.Top + 3, ComboBox1.Items[Index]);end;procedure TForm1.FormDestroy(Sender: TObject);var  i: Integer;begin  for i := 0 to Length(Bits)-1 do    Bits[i].Free;end;end.

vb combobox vb combobox控件 VB COMBOBOX 控件 VB COMBOBOX 控件 combobox组件问题 Combobox的用法 ComboBox问题！！！11急！！！！ delphi7 combobox控件 combobox 如何使用 combobox控件的美化 怎样用comboBox实现联动菜单？ 有关Flash ComboBox组件问题 关于ComboBox的一个问题 triview怎样绑定到combobox？？？？？？？？？？？？ delphi中如何使用combobox？ VB中Combobox的用法 VB的ComboBox 控件问题 动态显示ComboBox的内容 VB的combobox如何添加项？ winform里combobox控件的问题 有关VB COMBOBOX 控件的问题 请教C#高手!ComboBox数据绑定问题 vb的下拉菜单ComboBox的使用方法 VC++：向ComboBox中添加项