TRadioGroup klickt falsch

[Jürgen Thomas]

Hallo,

ich meinte nicht, dass der Formular-Code angepasst werden sollte, sondern etwas in der Art:

Delphi-Quellcode:

procedure TRadioGroupSpecial.ButtonClick(Sender: TObject);
var TForm: frm;
begin
  frm := (Sender as TRadioGroupSpecial).ParentForm;
  if frm.Active then
  begin
    //  erst jetzt kommen die gewünschten Maßnahmen
  end;
end;

So kann es noch nicht klappen: Ich erinnere mich nicht mehr, wie ich auf die Schnelle das Container-Formular zu einer Komponente erhalte; und ich weiß auch nicht, was zuerst kommt: der unerwünschte Click oder Form.Active. Aber in dieser Richtung kannst Du ausprobieren.

Viel Erfolg! Jürgen