RadioGroup Item Index während laufzeit setzen

[Joergie]

delphi Hilfe:
ItemIndex enthält den Index des Optionsfeldes, das in der Items-Liste markiert ist. (Das erste Feld hat den Wert 0.) Wenn der Benutzer zur Laufzeit Optionsfelder markiert, ändert sich der Wert von ItemIndex entsprechend. Soll nach dem Start der Anwendung bereits ein bestimmtes Optionsfeld markiert sein, weisen Sie das betreffende Feld während der Anwendungsentwicklung ItemIndex zu. Verwenden Sie andernfalls die Voreinstellung für ItemIndex (-1).

Beispiel:
RadioGroup.ItemIndex := 3; ich setze ItemIndex während der Laufzeit, der zugehörige Button wird aber nicht makiert. Was kann ich machen, damit diese zu sehen ist.

Danke
~Joerg

[easywk]

Hmm, komisch. Bei mir funktioniert das herzallerliebst. Mache ich eigentlich ständig so. Ist sichergestellt, das die RadioGroup auch enabled ist?

[Joergie]

Die RadioGroup ist enabled. ich habe sie davor nochmal auf enabled gesetzt. funktioniert aber immernoch nicht!!
~joerg

[Stevie]

Zitat von Joergie:

ich setze ItemIndex während der Laufzeit, der zugehörige Button wird aber nicht makiert. Was kann ich machen, damit diese zu sehen ist.

Wird der Code überhaupt abgearbeitet? (Haltepunkt setzen)
In welcher Methode soll der Code ausgeführt werden?
Wird er eventuell vor der Initialisierung durch die dfm-Datei gesetzt?

[Joergie]

Ja, die Methode wird ausgeführt! Habe ich durch anzeigen des zu setzenden Indizes mit Hilfe eines Labels gemacht!

Die RadioBox wird zur Auswahl genutzt. Beim wiederholten aufruf, möchte ich die vorherige auswahl schon anzeigen!

Zitat:

Stevie: Wird er eventuell vor der Initialisierung durch die dfm-Datei gesetzt?

Das weiß ich nicht. Daran kann es vielleicht liegen! Weiß aber nicht, wie ich es beheben kann!

~joerg

[Stevie]

Zitat von Joergie:

Das weiß ich nicht. Daran kann es vielleicht liegen! Weiß aber nicht, wie ich es beheben kann!

Zeich doch ma Quellcode!

[Joergie]

Hier der Quellcode

Delphi-Quellcode:

...
  if Form2.Label1.Caption <> '' then
  begin
    for i := 0 to Form2.RadioGroup1.Index.Count-1 do
    begin
      if Form2.RadioGroup1.Items[i] =
               Form2.Label1.Caption then
      begin
        Form2.RadioGroup.Enabled := true;
        Form2.RadioGroup.ItemIndex := i;
        Form2.Label2.Caption := IntToStr(i); // test, ob methode abgearbeitet wird
      end;
    end; //for
  end; // if
Form2.ShowModal;

Label2 zeigt auch den richtigen Zahlenwert and, welcher ItemIndex zugewiesen werden sollte
~joerg

[Stevie]

Mach mal statt der for-Schleife das hier:
Form2.RadioGroup.ItemIndex := Form2.RadioGroup.IndexOf(Form2.Label1.Caption);

[Joergie]

Funktioniert.
Hat auch an meiner eigenen Blödheit gelegen! Ich hatte noch Form2.ShowModal vor der Schleife gehabt!

Danke
~joerg

[Stevie]

Zitat von Joergie:

Ich hatte noch Form2.ShowModal vor der Schleife gehabt!

Das dann nix passiert ist ja kein Wunder...