Text in Combobox rechtsbündig ausrichten |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;