Ausrichten der RadioButons innerhalb der cxRadioGroup

[Hawkeye219]

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