Klick auf TRadioGroup zur Laufzeit erzeugen

**RaSoWa1**

Hallo,

ich habe ein Formular mit mehreren Komponenten (TEdit, TButton, TCheckBox, TRadioGroup, ...).
Wenn der Nutzer die Eingabe in einem Edit-Feld beendet hat und z.B. auf eine andere Komponente klickt, werte ich im OnExit-Ereignis die Eingabe aus und verlange ggf. in einem zur Laufzeit erzeugtem Formular noch eine ergänzende Eingabe. Nach dieser zusätzlichen Eingabe hat aber die Edit-Komponente wieder den Focus.
Ich möchte aber, dass nach der zusätzlichen Eingabe, der vorher getätigte Klick unmittelbar ausgeführt wird.
dazu verwende ich folgenden Code:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TFmEdit_PrSch.EditVkExit(Sender: TObject);

var  ac : TControl;

begin

  ac := ActiveControl;

  EditVk.Text := FormatVk(EditVk.Text);

  if ChangeMod and (Artikel <> nil) then

    SaveArtikelDaten;              // hier erfolgt ggf. die Zusatzabfrage

  TWinControl(ac).SetFocus;

  if ac is TButton then

    TButton(ac).OnClick(ac)

  else

    if ac is TCheckBox then

      TCheckBox(ac).OnClick(ac)

//  else

//    if ac is TGroupButton then

//    TGroupButton(ac).OnClick(nil);

end;

Es funktioniert mit allen Komponenten, außer TRadioGroup!?
Der Classname von ActiveControl ist nach einem Klick auf die TRadioGroup-Komponente: TGroupButton.
TGroupButton ist aber in der Unit ExtCtrls nicht im Interface-Teil deklariert, deshalb im Code auskommentiert.
Irgendwie stehe ich da z.Z. auf dem Schlauch und weiß im Moment nicht wie ich da runter komme.

Hat jemand eine Idee? Wie kann ich den Klick auf die Radiokomponete ausführen?

Ich hoffe ihr könnt mir auch diesmal helfen.

Gruß Klaus

Klick auf TRadioGroup zur Laufzeit erzeugen

Klick auf TRadioGroup zur Laufzeit erzeugen

Forumregeln