combobox 如何让text居中_DELPHI combobox 文字水平居中

这个是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;