Ausrichten der RadioButons innerhalb der cxRadioGroup

[Darkchild]

Mahlzeit,

folgendes kleines Problemchen habe ich:

In meiner Maske liegt eine cxdbradiogroup auf welcher ich mit rechtsklick - hinzufügen zwei neu RadioButtons angelegt habe.
Diese sind mit der Ausrichtung so eingestellt das der RadioButton links und der Schriftzug (Caption) rechts liegt, ich hätte es aber sehr gerne andersherum nur fehlen bei der cxRadioGroup im gegensatz zu dem Einzelelement RadioButton die Align Eigenschaften für left oder rightjustify.
Habe bis dato keine Property gefunden mit welcher ich die Ausrichtung ändern könnte.

Hat da jemand einen Tip für mich wo ich noch nicht nachgeschaut habe oder welche Property ich einfach ignoriert habe bis jetzt ?

Gruss
Darkchild

[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

[Darkchild]

Vielen Danke.

Habe schon gedacht ich bin Blind !

Werde mir die Sache mal ansehen.

Gruss
Darkchild