Hi Darkchild,
du hast nichts übersehen, es gibt keine Eigenschaft zum Einstellen der Ausrichtung. Mit einer etwas unsauberen Methode kannst du das gewünschte Aussehen aber dennoch erzwingen:
Delphi-Quellcode:
procedure SetButtonAlignment (aRadioGroup: TCustomRadioGroup; aAlignment: TLeftRight);
var
i : Integer;
begin
aRadioGroup.Perform(CM_FONTCHANGED, 0, 0);
for i := 0 to aRadioGroup.ControlCount - 1 do
if (aRadioGroup.Controls[i] is TRadioButton) then
with TRadioButton(aRadioGroup.Controls[i]) do
begin
Alignment := aAlignment;
if (aAlignment = taLeftJustify) then
Width := Width - 8;
end;
end;
Nach dem Hinzufügen von Buttons zur Laufzeit mußt du die Routine erneut aufrufen, damit die Ausrichtung der neuen Buttons angepaßt wird. Aber du weißt hoffentlich: zu Risiken und Nebenwirkungen...
Gruß Hawkeye