Radiogroup / TRadiogroup unter FMX / Firemonkey

[Delphi-Laie]

Hallo Delphifreunde!

Schon wieder fordert mich eine Tücke der Migration eines VCL- zu einem FMX-Projekt mehr oder minder heraus.

Für die visuelle Komponente (T)SpinEdit, die es unter FMX nicht gibt, konnte ich noch einen akzeptablen Ersatz in der Toolpalette auftreiben: (T)SpinBox.

Doch an (T)RadioGroup, die es auch nicht gibt, scheitere ich. Nun fand ich http://stackoverflow.com/questions/1...-a-single-form, das hilft schonmal etwas.

Alle Radiobuttons mit dem gleichen Gruppennamen ("GroupName") verhalten sich wie eine RadioGroup, das habe ich verstanden, und das passiert auch so: Es läßt sich immer nur ein Radiobutten der jeweiligen Gruppe auf aktivieren.

Doch wie spricht man diese gruppierten Radiobuttons unter einem gemeinsamen Namen an?

Man könnte sie auf einer Groupbox ablegen, das funktioniert auch, und im Strukturfenster ist die Unterordnung zu sehen.

Nun hatte ich gehofft, daß wegen dieser Hierarchie die einzelnen Radiobuttons über

Groupbox1.Radiobutton1
Groupbox2.Radiobutton2

usw. ansprechbar sein könnten, doch das klappt leider nicht. Also, nochmals zum Verständnis, ich suche das Analogon von / zu

Radiogroup1.Itemindex

oder

RadioGroup1.Controls[x]

unter FMX.

Läßt sich die (T)RadioGroup unter FMX soweit "nachbilden" oder "zusammenbasteln", daß ihre einzelnen gruppierten Radiobuttons unter einem gemeinsamen Namen ansprechbar sind, falls ja, wie?

Vielen Dank und Gruß

Delphi-Laie

[Uwe Raabe]

Zitat von Delphi-Laie:

Läßt sich die (T)RadioGroup unter FMX soweit "nachbilden" oder "zusammenbasteln", daß ihre einzelnen gruppierten Radiobuttons unter einem gemeinsamen Namen ansprechbar sind, falls ja, wie?

Kann ich leider nicht direkt beantworten, da ich das TMS FMX UI Pack verwende, in dem eine RadioGroup-Komponente enthalten ist. Also indirekt: Ja, aber das Wie darf ich dir so nicht zeigen.

[Delphi-Laie]

Gut, danke!

Daraus entnehme ich:

- die TRadioGroup-Klasse wurde in FMX nicht mit aufgenommen (warum, zum Teufel, nicht?)
- sie wird aber dennoch als so wichtig eingestuft, daß man ihr Fehlen schmerzlich vermißte, so daß "von dritter Hand" eine eigene "Ersatzklasse" kreiert wurde
- diese Klasse ist in einer professionellen Software "TMS FMX UI Pack" von TMS-Software enthalten, der Einblick in deren Quellcodes für Nichtkäufer deshalb nicht statthaft.

Habe ich das richtig verstanden?

[Harry Stahl]

Du könntest für die GroupBox z.B. einen Classhelper verwenden, um ItemIndex mit relativ wenig Veränderungsaufwand in der bisherigen Notation weiter zu verwenden.

Die Lösung setzt allerdings voraus, dass Du die "TAG"-Eigenschften der verwendeten TRadioButtons, die in der GroipBox liegen, selber zuvor manuell durchnumerierst.

Delphi-Quellcode:

unit Unit38;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Controls.Presentation, FMX.Layouts, FMX.ListBox, FMX.Edit, FMX.EditBox,
  FMX.SpinBox;

type
  TRadioGroupHelper = class helper for TGroupBox
    // Setzt voraus, dass die TAG-Werte der TRadioButton manuell zuvor auf 0..x durchnumeriert wurden
    function ItemIndex: Integer;
    procedure SetItemIndex (NewIndex: Integer);
  end;

  TForm38 = class(TForm)
    RadioButton0: TRadioButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    bnGetIndex: TButton;
    bnSetIndex: TButton;
    procedure bnGetIndexClick(Sender: TObject);
    procedure bnSetIndexClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form38: TForm38;

implementation

{$R *.fmx}

{ TRadioGroupHelper }

function TRadioGroupHelper.ItemIndex: Integer;
var
  L: Integer;
begin
  Result := -1;

  for L := 0 to ChildrenCount-1 do begin
    if  Children[L] is TRadioButton then begin
      if (Children[L] as TRadioButton).IsChecked then begin
        Result := (Children[L] as TRadioButton).Tag;
      end;
    end;
  end;
end;

procedure TRadioGroupHelper.SetItemIndex(NewIndex: Integer);
var
  L: Integer;
begin
  for L := 0 to ChildrenCount-1 do begin
    if  Children[L] is TRadioButton then begin
      if (Children[L] as TRadioButton).Tag = NewIndex then begin
        (Children[L] as TRadioButton).IsChecked := True;
      end;
    end;
  end;
end;

// Test

procedure TForm38.bnGetIndexClick(Sender: TObject);
begin
  ShowMessage (GroupBox1.ItemIndex.ToString);
end;

procedure TForm38.bnSetIndexClick(Sender: TObject);
begin
  GroupBox1.SetItemIndex (1); // statt GroupBox1.itemIndex := 1;
end;


end.

Davon abgesehen: Emba betont immer, dass sie das machen, was die User wünschen und dafür gibt es den Feature-Request. Schlage doch einfach mal vor, dass es auch eine RadioGoup-Komponente in FMX geben soll, wenn die Dir so sehr fehlt.

[Delphi-Laie]

Tausend Dank, Harry Stahl! Ich werde mich heranwagen.

Zitat von Harry Stahl:

Davon abgesehen: Emba betont immer, dass sie das machen, was die User wünschen und dafür gibt es den Feature-Request. Schlage doch einfach mal vor, dass es auch eine RadioGoup-Komponente in FMX geben soll, wenn die Dir so sehr fehlt.

Ich werde mich hüten. Wie käme ich dazu?

Schon einmal monierte ich das Fehlen von Selbstverständlichkeiten (meiner Ansicht nach) in FMX und äußerte, daß man als erstes nur die VCL durchzugehen und weitgehend nachzubilden braucht, um eine wesentliche, gewohnte Funktionalität zu erreichen - wie soll man sonst migrieren?! Einem Moderator fiel nichts besseres ein, als mir das Bleiben bei der VCL "vor den Latz zu knallen". Nunja, vielleicht war das gar nicht so verkehrt, allmählich bin ich wirklich soweit...Daniel äußerte sich differenzierter: "...anderes Konzept...". Deshalb nehme ich an, daß Embarcadero sich etwas dabei dachte (nur was?), darauf zu verzichten. Und ich war ziemlich erstaunt, daß sich in diesem hochfrequentierten Forum auch nach einigen FMX-Jahren dazu noch keine Diskussion fand. Daß diese jahrzehntelang bewährte und häufig benutze Komponente "TRadioGroup" auch in der neunten FMX-Version noch fehlt und von einem Drittanbieter bereitgestellt wird, empfinde ich als ein gewisses Armutszeugnis.

Ist nun auch egal, Dein Quellcode sieht sehr gut aus, ich werde ihn sehr bald zu verwenden versuchen, nochmals vielen Dank!

[Delphi-Laie]

Das funktioniert soweit so, wie eine gewöhnliche (T)RadioGroup, nochmals herzlichen Dank, Harry Stahl!

Was mich jedoch erst irritierte - weil anfangs nicht durchschaute - und auch jetzt noch stört, ist, daß auf den FMX-Formularen die Ereignisse "OnClick" bei diesen zu einer Radiogroup zusammengesetzten Radiobuttons (außer erstmaligem Setzen) und auch bei den Button nicht, wie gewohnt, schon dann reagiert, wenn der Mausklick erfolgt, sondern erst dann, wenn danach die Maus bewegt wird. Hält man die Maus ruhig und klickt, passiert mithin erstmal nichts. Allerdings erfolgt die graphische Reaktion an den visuellen Elementen sofort, also schon beim Mausklick, nur wird eben das On-Ereignis erst beim nachfolgenden Mausverschieben ausgelöst.

Weiß jemand, ob das so sein soll?

Edit: Das ist bei mir unter Windows 7 so, nicht jedoch unter Windows XP. Liegt demnach vielleicht an Windows.

[Bernhard Geyer]

Zitat von Delphi-Laie:

Ich werde mich hüten. Wie käme ich dazu?

Schon einmal monierte ich das Fehlen von Selbstverständlichkeiten (meiner Ansicht nach) in FMX und äußerte, daß man als erstes nur die VCL durchzugehen und weitgehend nachzubilden braucht, um eine wesentliche, gewohnte Funktionalität zu erreichen - wie soll man sonst migrieren?! Einem Moderator fiel nichts besseres ein, als mir das Bleiben bei der VCL "vor den Latz zu knallen".

Welche Diskussion/Beitrag soll das sein. Im Forum finde ich das nicht und auch im QC und Quality-Portal finde ich hierzu nichts.

Zitat von Delphi-Laie:

Und ich war ziemlich erstaunt, daß sich in diesem hochfrequentierten Forum auch nach einigen FMX-Jahren dazu noch keine Diskussion fand. Daß diese jahrzehntelang bewährte und häufig benutze Komponente "TRadioGroup" auch in der neunten FMX-Version noch fehlt und von einem Drittanbieter bereitgestellt wird, empfinde ich als ein gewisses Armutszeugnis.

Höchstwahrscheinlich vermisst diese RadioGroup keiner richtig. Im Quality-Portal hat bisher auch keiner danach nach gefragt.
Und Harry hat dir eine Lösung gezeigt wie du das Property wieder bekommst. Alternativ bau selbst ein Composit-Control das auch die Items-List nachbaut. ist kein Hexenwerk.

[Delphi-Laie]

Zitat von Bernhard Geyer:

Welche Diskussion/Beitrag soll das sein. Im Forum finde ich das nicht und auch im QC und Quality-Portal finde ich hierzu nichts.

http://www.delphipraxis.net/190588-b...ehlen-xe2.html

Zitat von Bernhard Geyer:

Höchstwahrscheinlich vermisst diese RadioGroup keiner richtig.

Auch die Leute von TMS-Software nicht?

Zitat von Bernhard Geyer:

Und Harry hat dir eine Lösung gezeigt wie du das Property wieder bekommst.

Yo, damit komme ich klar, und dafür bin ich ihm auch nach wie vor dankbar.

[Harry Stahl]

Zitat von Delphi-Laie:

Das funktioniert soweit so, wie eine gewöhnliche (T)RadioGroup, nochmals herzlichen Dank, Harry Stahl!

Gerne.

Zitat von Delphi-Laie:

Was mich jedoch erst irritierte - weil anfangs nicht durchschaute - und auch jetzt noch stört, ist, daß auf den FMX-Formularen die Ereignisse "OnClick" bei diesen zu einer Radiogroup zusammengesetzten Radiobuttons (außer erstmaligem Setzen) und auch bei den Button nicht, wie gewohnt, schon dann reagiert, wenn der Mausklick erfolgt, sondern erst dann, wenn danach die Maus bewegt wird. Hält man die Maus ruhig und klickt, passiert mithin erstmal nichts. Allerdings erfolgt die graphische Reaktion an den visuellen Elementen sofort, also schon beim Mausklick, nur wird eben das On-Ereignis erst beim nachfolgenden Mausverschieben ausgelöst.

Weiß jemand, ob das so sein soll?

Edit: Das ist bei mir unter Windows 7 so, nicht jedoch unter Windows XP. Liegt demnach vielleicht an Windows.

Das kann ich so nicht bestätigen. Für welches On-Event soll das denn gelten? Hier mal kurz beim OnClick getestet, wird sofort ausgelöst.

[Delphi-Laie]

Harry, allerbesten Dank für Deine Ausdauer mit mir bzw. meinem Anliegen!

Zitat von Harry Stahl:

Das kann ich so nicht bestätigen. Für welches On-Event soll das denn gelten? Hier mal kurz beim OnClick getestet, wird sofort ausgelöst.

Um das zu verdeutlichen, hänge ich hier das nächste kompilierte Projekt an.

Dieser Effekt tritt bei mir, wie gesagt, nicht unter XP, wohl aber unter Windows 7 auf, und zwar [I]ab dem zweiten Mausklick auf irgendein Control des Formulares (also nicht ab dem zweiten Mausklick auf das jeweilige Control). Also ab dem jeweils zweiten Male mit unbewegter Maus klicken - und nichts passiert. Erst beim darauffolgenden Verschieben der Maus wird OnClick nachträglich ausgelöst. Müßte an der verspäteten Aktualisierung des ausgegebenen ItemIndex' sichtbar werden. Hoffentlich ist dieser Effekt auch auf anderen Windows' reproduzierbar.

Ganz optimal wäre es natürlich, wenn man die jeweilien OnClick-Events der RadioButtons auch noch unter einem OnClick-Event zusammenfassen könnte, wie bei der VCL-TRadioGroup. Ob das möglich ist, weiß ich nicht, vermute es aber, weil die TRadioGroup das ja auch ermöglicht. Vermutlich können die Profis hier sofort ein "Ja" entgegnen. Leider wurde ich aus den Quelltexten der TRadioGroup bisher nicht so recht schlauer. Aber so, wie es jetzt steht, geht es auch.

Edit: Einen entscheidenden Satz, der das letztgenannte wieder fraglicher werden läßt, fand ich just in der Delphi-Hilfe: "Die Einträge in einem Optionsfeldgruppenobjekt sind spezielle Instanzen von TRadioButton, die von TCustomRadioGroup erzeugt wurden. TRadioButton-Instanzen, die unabhängig erzeugt wurden, können nicht in eine Optionsfeldgruppe aufgenommen werden."