Focus setzen bei RadioGroup

[OsCor]

Hallo Foristen,

ich arbeite mit D2007 und habe ein Problem, das mir beinahe lächerlich vorkommt:
Um einen Arbeitsgang abzukürzen, steuere ich eine RadioGroup mit RadioGroup1.SetFocus an. Der Compiler mosert nicht, aber es gibt einen Laufzeitfehler EInvalidOperation 'Deaktiviertes oder unsichtbares Fenster kann den Fokus nicht erhalten'.
In einem Testprogramm habe ich nichts als einen Button und diese RadioGroup auf dem Formular, es gibt aber die gleiche Fehlermeldung.

Kann mir jemand bitte die Tomaten von den Augen nehmen?

OsCor

[zeras]

Ist das Fenster sichtbar, wo du den Focus setzen willst? In welchem Zustand setzt du denn den Focus (create, show, activate)?

[s.h.a.r.k]

Ist diese RadioGroup enabled?

[Wolfgang Mix]

Wie hast du die RadioGroup erzeugt?

[OsCor]

Hallo zeras,

die RadioGroup befindet sich im selben Formular wie der Button, der nach einigen anderen Aktionen (Füttern eines Stringgrids) den Fokus wieder an die RadioGroup zurückgeben will.

@s.h.a.r.k
Ja.

@Wolfgang Mix
Beim Erstellen des Formulares.

Den Begriff Fenster verstehe ich nicht so recht in diesem Zusammenhang.

OsCor

[s.h.a.r.k]

Er meint das Formular ;)

[zeras]

Zitat:

Zitat von OsCor

Hallo zeras,

die RadioGroup befindet sich im selben Formular wie der Button, der nach einigen anderen Aktionen (Füttern eines Stringgrids) den Fokus wieder an die RadioGroup zurückgeben will.

Den Begriff Fenster verstehe ich nicht so recht in diesem Zusammenhang.

OsCor

Ja, ich meine natürlich das Formular.
Lass doch mal das Füttern des SG raus und schaue, was passiert.
Drückst du auf den Button und dann werden die Aktionen gestartet, oder passiert das irgendwie anders?
Das Testprogramm kann dann doch nicht so gross sein. Dann poste es doch mal.

[Wolfgang Mix]

Erstelle 'mal auf einem neuen Formular eine neue RadioGroup mit
2 Items über den Objektinspektor und teste noch einmal

[OsCor]

So sieht das Testprogramm aus. Nach Drücken des Buttons sollte eigentlich die Radiogroup aktiv und die Itemauswahl per Tastatur möglich sein.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    RadioGroup1.SetFocus;
end;

end.

[Wolfgang Mix]

Was macht denn

Delphi-Quellcode:

RadioGroup1.Item2.SetFocus;

[OsCor]

Gar nichts, das geht doch gar nicht.

[Wolfgang Mix]

Doch, du musst die Items über das Objektinspektormenü erzeugen
und nicht über die Toolpalette RadioButtons dahin schieben.

[s.h.a.r.k]

Sein Quellcode funktioniert aber mit D2010! Ich hatte vorher genau das probiert. Ich habe keinerlei Einträge auf der RadioGroup. Sicher, dass Enabled und Visible auf True stehen? (von Form1 und RadioGroup1)

Hänge mal das Projekt komplett an.

[OsCor]

@Wolfgang

Ich ziehe aus der Toolpalette eine RadioGroup auf die Form und benenne die Items anschließend im Objektinspektor. Dann setze ich den ItemIndex auf 0.

@Armin

Bisher konnte ich mir meist selber helfen, deshalb die Frage: Einfach alle Dateien eines Projektes als Attachment hier anhängen?


@all
Das Fenster mit dem Hinweis auf den Fehler zeigte die Möglichkeit an, diesen speziellen Fehler so nicht mehr anzuzeigen. Das habe ich irgendwann angekreuzt. Wie kriege ich denn das wieder so hin, wie es vorher war?

Oswald

[s.h.a.r.k]

Zitat:

Zitat von OsCor

@all
Das Fenster mit dem Hinweis auf den Fehler zeigte die Möglichkeit an, diesen speziellen Fehler so nicht mehr anzuzeigen. Das habe ich irgendwann angekreuzt. Wie kriege ich denn das wieder so hin, wie es vorher war?

Bei mir unter D2010 ist die Liste der ignorierten Exceptions unter Tools -> Optionen -> Sprach-Exceptions (ziemlich wei unten in den Debugger-Optionen).

Hätte mir das Projekt eben bei Zeit mal angeschaut. Was passiert eigentlich, wenn du eine komplett neue VCL-Anwendung aufmachst und genau das machst was du bisher hast? Ein RadioGroup mit Button drauf klatschen und den Code rein schreiben. Bei mir hat das, wie schon oben erwähnt ohne Probleme funktioniert.

Ansonsten würde ich auf einen Fehler von Delphi tippen und dann käme die Frage nach allen installieren Updates.

[OsCor]

Was ich gepostet habe, ist ja die komplett neue VCL-Anwendung. Das eigentliche Programm, an dem ich schreibe, ist viel zu groß, um hier was reinzustellen - und möglicherweise kann ich das Problem ja auch mit irgendeinem Workaround umschiffen. Aber noch hoffe ich, daß wir das Problem lösen können.
Ich dachte an einen Fehler in meinem Code und habe deshalb diesen kleinen Versuch gestartet.

CodeGear™ Delphi® 2007 für Win32® Version 11.0.2804.9245 steht in der Versionsinfo.

Edit: Noch ein paar Tests gemacht: Wenn ich mit TabOrders arbeite, und die RadioGroup mit TabOrder=1 versehe und den Button mit 0, dann muß ich, um vom Button auf die Group zu kommen, die Tabulatortaste 2 mal betätigen. Wo geht die hin beim ersten Mal?

Oswald

[s.h.a.r.k]

Du kannst hier ja via ActiveControl (Form1.ActiveControl) schauen, welches Control denn den Focus erhält.

[zeras]

Ich habe noch ein wenig probiert. Wenn Setfocus im OnCreate des Formulars kommt, dann kommt auch diese Fehlermeldung. Kann es sein, dass du zwischendurch dieses Formular deaktivierst oder dass ein anderes Formular gerade aktiv ist?

[OsCor]

Nein, eigentlich nicht.
Der Vorgang ist tatsächlich so simpel: Neue VCL-Anwendung, RadioGroup und Button drauf ziehen und im OnCreate des Formulars RadioGroup1.SetFocus eingeben.

Das aktive Objekt werde ich jetzt mal suchen.

Edit: Weia, wie macht man das?

[zeras]

Vielleicht probierst du es mit einzelnen Radiobuttons und nicht mit einer Radiogroup. Sollte doch auch gehen. Ich habe mit D2009 getestet.

[OsCor]

Habe ich auch gerade. Das funktioniert bei mir auch.
Möglicherweise wird zunächst mal das Objekt RadioGroup an sich angesteuert und dann erst die einzelnen Items. Das würde für mich bedeuten, daß ich halt die Gruppe mit dem Rahmen und der Caption weglasse, da anscheinend das ausschließliche Checken auch so funktioniert.
Das Setzen des Focus funktioniert aber auch so nicht, lediglich das Springen mit dem Tabulator funktioniert ohne Zwischenschritt. Immerhin.

Danke für den Hinweis mit den einzelnen Radiobuttons.

[OsCor]

Nochmal eine Ergänzung:

Delphi-Quellcode:

Form1.ActiveControl := RadioGroup1;

<-- funktioniert nicht

Delphi-Quellcode:

Form1.ActiveControl := RadioButton1;

<-- funktioniert und setzt den angesteuerten Button auf Checked

Ein Workaround habe ich jetzt also. Danke für die Hilfe!

Oswald

[stahli]

Zitat:

und im OnCreate des Formulars RadioGroup1.SetFocus

Versuche es mal im OnActivate...

(Die RadioGroup hat mir auch schon einige schlaflose Nächte bereitet, da sie u.a. einen Click auslöst, wenn das Formular geöffnet wird und sie den Focus hat.)

[OsCor]

Im OnActivate gibt es tatsächlich keine Fehlermeldung, was mir im Nachhinein auch völlig logisch vorkommt: Die Form ist schon da mit allen Komponenten, was bei OnCreate vermutlich nicht der Fall ist. Wieder was gelernt.

Was ich immer noch nicht weiß: Wie kriege ich heraus, welche Komponente zwischenzeitlich den Focus hat, wenn ich von einem Button mit dem Tabulator zur RadioGroup weiterschalten will und dafür zweimal TAB drücken muß?

Ich weiß noch nicht, wie ich mit Form1.ActiveControl arbeiten kann.

Oswald

[daywalker9]

Welches Control den Focus hat, bekommst du mit "ActiveControl" raus. Was verstehst du den nicht daran? Du kannst das ActiveControl selber setzten wie es in ein paar Posts vorher auch schon steht. Und kannst dies abfragen und ggf. damit weiter arbeiten