Home » Tipps & Tricks » Komponenten » TListBox/TComboBox » Text in Combobox rechtsbündig ausrichten

Text in Combobox rechtsbündig ausrichten

Verwenden Sie folgende Procedure, um die Items einer Combobox rechtsbündig auszurichten:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowLong(Combobox1.Handle, GWL_ExStyle, 
    GetWindowLong(Combobox1.Handle, GWL_ExStyle) or WS_EX_Right);
end;

Über GetWindowLong werden zunächst alle WS_EX Attribute ermittelt und mit WS_EX_Right verknüpft. SetWindowLong setzt die neuen Atribute.Statt dem Handle einer Combobox können Sie auch das Handle einer Listbox übergeben, um die Listbox-Items rechtsbündig auszurichten.Um die Items wieder linksbündig auszurichten gehen Sie wie folgt vor:

procedure TForm1.Button2Click(Sender: TObject);
begin
  SetWindowLong(Combobox1.Handle, GWL_ExStyle, 
    GetWindowLong(Combobox1.Handle, GWL_ExStyle) and not WS_EX_RIGHT or WS_EX_LEFT); 
end;