Question

delphi combobox的onmeasureitem怎么用

Answer 1

OnMeasureItem 事件是将 ComboBox 组件的 Style 属性设为 csOwnerDrawVariable，当系统需要绘制控件时会激发此事件。

csOwnerDrawVariable 和 csOwnerDrawFixed 两个属性都用于 ComboBox 控件的自定义显示样式，区别在于 csOwnerDrawFixed 用于项目等高，而 csOwnerDrawVariable 用于绘制有不同高度的条目的下拉列表框。

示例如下：

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
 for i := 0 to Screen.Fonts.Count-1 do
    cbbFonts.Items.Add(Screen.Fonts.Strings[i]);
end;

procedure TForm1.cbbFontsDrawItem(Control: TWinControl; Index: Integer; Rect: TRect;
  State: TOwnerDrawState);
begin
  with (Control as TComboBox).Canvas do
  begin
    Font.Name := Screen.Fonts.Strings[Index];
    FillRect(Rect);
    TextOut(Rect.Left,Rect.Top,PChar(Screen.Fonts.Strings[Index]))
  end;
end;

procedure TForm1.cbbFontsMeasureItem(Control: TWinControl; Index: Integer;
  var Height: Integer);
begin
  if Index = 3 then
    Height := 30;
end;

代码运行效果如图：