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;