Radiogroup - Items verschieben im OnResize - Fehler

[bernau]

Hallo zusammen,

ich möchte die Items in einer Radiogroup neu ausrichten. Das klappt soweit mit folgendem Code:

Delphi-Quellcode:

RadioGroup1.Buttons[0].Left :=10;

Aber nur, wenn das Form bereits erzeugt ist und diese Zeile irgendwo in einem Button-Click-Event aufgerufen wird.

Im OnCreate des Forms bringt dieser Code allerdings Fehler.

Zitat:

"Listenindex außerhalb des gültigen Bereichs (0). TList ist leer"

Es sieht so aus, als wenn die RadioButtons noch garnicht erzeugt wurden. Items.count zeigt aber einen Count>0 an. Ich habe also gar keine Möglichkeit vor dem Zugriff auf ein Radiobutton festzustellen, ob dieser überhaupt verfügbar ist.

Ist das nun ein Fehler in der VCL, oder übersehe ich da etwas?

[Klaus01]

.. vielleicht hilft es, die Aufgabe in afterConstruction auszuführen.
Da sollten die RadioButtons schon erstellt sein.


Grüße
Klaus

[bernau]

Hab ich auch schon gestestet. Gleicher Fehler.

Eigentlich wollte ich im OnResize die Position der Buttons ändern, aber auch dort der gleiche Fehler.

[Klaus01]

.. füllst Du die Radiogroup per Code oder zur Designzeit?

[himitsu]

Zitat:

füllst Du die Radiogroup per Code oder zur Designzeit?

Jo, erstmal das.

Wenn es da noch keine Items gibt, dann wäre es eh blöd, blind auf irgendwas zugreifen zu wollen.

Delphi-Quellcode:

DeineRadioGroup.Items.Count

Zitat:

Zitat von Klaus01 (Beitrag 1537510)

.. vielleicht hilft es, die Aufgabe in afterConstruction auszuführen.

In Delphi 12 ist OnCreate immer im AfterConstruction, da muß man sich nicht extra speziell an Dieses dranhängen (override).
Und davor auch schon seit Jahrzehnten, wenn OldCreateOrder nicht True ist, was es sowieso nach Möglichkeit nicht sein sollte.

Aber egal, er machts es ja im OnResize, wie er schrieb :zwinker:


Vielleicht auf csCreating oder csLoading im ComponentState der Form oder des RadioGroup prüfen,
bzw. auf Assigned(DeineRadioGroup), während des Erstestellens/Ladens der Form,
und dann das Ausrichten nicht machen.



Die Items und Buttons werden nicht sofort synchronisiert,
vor allem beim Laden der Form, wenn es noch keine Handles (HWND) gibt, gibt es auch keine CheckButtons.

* Leider gibt es kein ButtonsCount, um die Anzahl zu prüfen.
* Es sind leider auch alle Methoden im PRIVATE, welche man für den Abgleich aufrufen könnte. (UpdateButtons, bzw. SetButtonCount)
* Andere Methoden/Ereugnisse zu finden, welche das sicher mit abgleichen, aber sonst nichts "schlimmes" machen, zu finden ist ... maaaaaaaaaa


Suche mal nach UpdateButtons in der Vcl.ExtCtrls.

Delphi-Quellcode:

  TCustomRadioGroup = class(TCustomGroupBox)
  private
    FButtons: TList;
    FItems: TStrings;
    ...
    procedure SetButtonCount(Value: Integer);
    procedure UpdateButtons;
    ...
    property ButtonList: TList read FButtons;

Das Einzige, was mir einfallen täte, wäre

Delphi-Quellcode:

DeineRadioGroup.HandleNeeded;

oder

Delphi-Quellcode:

DeineRadioGroup.Handle;

vor dem Zurgriff auf

Delphi-Quellcode:

DeineRadioGroup.Buttons[]

auszuführen,
aber besser wäre es schon "zusätzlich" vorher csCreating und oder das Andere zu prüfen und es dann noch nicht auszurichten.


[edit]
ohhh,

Delphi-Quellcode:

property ButtonList: TList read FButtons;

.

Delphi-Quellcode:

type TRadioGroupAccess = class(TRadioGroup);

if DeinButtinIndex < TRadioGroupAccess(DeineRadioGroup).ButtonList.Count then

[Uwe Raabe]

Die Buttons werden in der Tat erst später erzeugt. Insbesondere werden sie bei diversen Ereignissen auch neu positioniert. Dies passiert in der Methode ArrangeButtons, die erfreulicherweise virtuell ist. Mit einer entsprechenden Interceptor/Interposer Class kannst du die Methode überschreiben und nach dem inherited deine Anpassungen machen. Allerdings gilt es zu beachten, dass auch diese Methode aufgerufen wird, wenn die Buttons noch nicht existieren. Daher empfiehlt sich in jedem Fall eine Abfrage von ButtonList.Count bevor du auf Buttons[...] zugreifst.

[bernau]

Danke euch für die Hinweise.

Ich denke, ich werde eine Ableitung erzeugen, arrangeButtons überschreiben und dann die "neue" Radiogroup im OnCreate erzeugen.

[bernau]

Zitat:

Zitat von himitsu (Beitrag 1537514)

Wenn es da noch keine Items gibt, dann wäre es eh blöd, blind auf irgendwas zugreifen zu wollen.

Delphi-Quellcode:

DeineRadioGroup.Items.Count

Tatsächlich habe ich items.count genutzt, um zu sehen, wieviel items vorhanden sind um dann die Buttons zu positionieren. Während aber items.count>0 ist, sind die Buttons dennoch nicht vorhanden.

[TomyN]

Sind sie dann wenigstens verlässlich nil, so dass Assigned(myRadiogroup.items[x]) fehlschlägt?

[Uwe Raabe]

Zitat:

Zitat von TomyN (Beitrag 1537520)

Sind sie dann wenigstens verlässlich nil, so dass Assigned(myRadiogroup.items[x]) fehlschlägt?

Ja und nein. Das Listenelement ist nicht zwingend nil, löst in der Regel aber einen Range Error aus. Falls nicht, ist das Ergebnis allerdings nicht vorhersagbar. Eine explizite Prüfung auf Gültigkeit des Index erfolgt allerdings nicht.

Da ButtonList aber protected und somit nur in Ableitungen verfügbar ist, kann man noch auf HandleAllocated prüfen. Das sollte auch das Vorhandensein der Buttons garantieren.

[himitsu]

Delphi-Quellcode:

type
  TRadioGroup = class(Vcl.ExtCtrls.TRadioGroup)
  protected
    procedure ArrangeButtons; override;
  end;

  TForm1 = class(TForm)
    ...

Dann wird beim Laden (Create) der TForm1 automatisch diese Ableitung benutzt. (nur zur Laufzeit)



So wie damals auch hier
https://www.delphipraxis.net/141895-...phi-other.html