DELPHI combobox 文字水平居中

最新推荐文章于 2024-07-08 12:32:46 发布

踏雪无痕

最新推荐文章于 2024-07-08 12:32:46 发布

阅读量3.3k

点赞数

分类专栏： DELPHI组件和单元

本文链接：https://blog.csdn.net/zengcong2013/article/details/12677279

版权

DELPHI组件和单元专栏收录该内容

21 篇文章 1 订阅

订阅专栏

这个是COMBOBOX

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
  ItemString: string;
begin
  TComboBox(Control).Canvas.FillRect(Rect);
  ItemString := TComboBox(Control).Items.Strings[Index];
  DrawText(TComboBox(Control).Canvas.Handle, PChar(ItemString), - 1, Rect, DT_CENTER);
end;

这个是CXCOMBOBOX

procedure TFormLogin.cxcbb1PropertiesDrawItem(AControl: TcxCustomComboBox;
  ACanvas: TcxCanvas; AIndex: Integer; const ARect: TRect;
  AState: TOwnerDrawState);
var
  ItemString: string;
begin
  TcxComboBox(AControl).Canvas.FillRect(ARect);
  ItemString := TcxComboBox(AControl).Properties.Items.Strings[AIndex];
  cxDrawText(ACanvas, PChar(ItemString), ARect, DT_CENTER, - 1, ra0);
end;