Hi,
es sollte funktionieren, wenn Du die Einträge der Listboxen selbst zeichnest. Dazu setzt Du die Eigenschaft
Style auf den Wert
lbOwnerDrawFixed und schreibst eine Behandlungsroutine für das Ereignis
OnDrawItem. Diese Routine könnte so aussehen:
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem (Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var Breite, x : Integer;
begin
// Pixelbreite des Eintrags bestimmen
Breite := ListBox1.Canvas.TextWidth(ListBox1.Items[Index]);
// x-Position des Eintrags bestimmen
x := (Rect.Left + Rect.Right - Breite) div 2;
// Eintrag darstellen
ListBox1.Canvas.TextRect(Rect, x, Rect.Top, ListBox1.Items[Index]);
end;
Die Erklärung der Parameter findest Du in der Online-Hilfe.
Gruß Hawkeye