Radiogroup - Items verschieben im OnResize - Fehler

[bernau]

Zitat von himitsu:

Wenn es da noch keine Items gibt, dann wäre es eh blöd, blind auf irgendwas zugreifen zu wollen.
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 von TomyN:

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