Hiiilfeeee!

Ich habe eine Main Form mit zwei globalen Variablen, die auch in einer RadioForm mittels zwei Radiogroups verändert werden können. Im OnShow Event der RadioForm werden die RadioGroups auf die Statusvariablen gesetzt. Das funktioniert aber nicht zuverlässig. Hier ist mein Code:

Unit1.pas:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    NR1: integer;
    NR2: integer;
  end;

var
  Form1: TForm1;


implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
NR1:=3;
NR2:=3;
FormRadio.Visible:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:='NR1='+inttostr(NR1);
Label2.Caption:='NR2='+inttostr(NR2);
end;

end.

Unit2.pas:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit2;

interface

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

type
  TFormRadio = class(TForm)
    Radio1: TRadioGroup;
    Radio2: TRadioGroup;
    Label1: TLabel;
    procedure Radio1Click(Sender: TObject);
    procedure Radio2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormRadio: TFormRadio;

implementation

uses Unit1;

{$R *.dfm}

procedure TFormRadio.Radio1Click(Sender: TObject);
begin
Form1.NR1:=Radio1.ItemIndex;
end;

procedure TFormRadio.Radio2Click(Sender: TObject);
begin
Form1.NR2:=Radio2.ItemIndex;
end;

procedure TFormRadio.FormShow(Sender: TObject);
begin
Radio1.ItemIndex:=Form1.NR1;
Radio2.ItemIndex:=Form1.NR2;
end;

end.

Problembeschreibung:
Drückt man den Button1 zum ersten mal, wird die FormRadio geöffnet und beide RadioGroups auf 3 gesetzt. Soweit ok.
Setzt man die RadioGroups händisch beide wieder auf 1, schließt die RadioForm und drückt den Knopf erneut, dann wird nur eine RadioGroup auf 3 gesetzt (im Debugger sieht man, dass die andere zwischenzeitlich auch auf 3 gesetzt wird, aber von irgendwo einen Klick wieder auf 1 bekommt und zurückgesetzt wird).???
Man kann das Spielchen mehrfach wiederholen. Es wird nicht immer dieselbe RadioGroup falsch gesetzt. Die wechseln ab!

Ich benutze Delphi6 Personal. Derselbe Fehler tritt aber auch bei Delphi7 Personal auf.
Was geht da vor?

Der komplette Quellcode ist auch angehängt.

ein Workaround um den Clickaufruf beim Setzen der Werte zu umgehen

markieren

Delphi-Quellcode:

procedure TFormRadio.FormShow(Sender: TObject);
begin
  Radio1.Enabled := false;
  Radio2.Enabled := false;
  Radio1.ItemIndex:=Form1.NR1;
  Radio2.ItemIndex:=Form1.NR2;
  Radio1.Enabled := true;
  Radio2.Enabled := true;
end;

Ich hatte das Problem auch schon: http://www.delphipraxis.net/85385-tr...kt-falsch.html

Am einfachsten wird sein, beiden RadioGroups vor der Formularaktivierung den Fokus zu entziehen.

EDIT: Das ist definitiv eine unsaubere Programmierung der TRadioGroup.

Zitat:

ein Workaround um den Clickaufruf beim Setzen der Werte zu umgehen

Danke, gute Idee. Das löst erst mal mein Problem.
Gibt es eine Theorie, was da schief geht?

P.S.

Zitat:

Am einfachsten wird sein, beiden RadioGroups vor der Formularaktivierung den Fokus zu entziehen.

Tatsächlich, das klappt. Ein Editfeld auf die FormRadio, im OnClose diesem den Fokus geben und der Spuk ist vorbei!

Also steckt das Problem in einer der Delphi-Units! Und da hat sich seit Delphi6 nichts getan?!

Danke nochmal!

Zitat von iphi:

Danke, gute Idee. Das löst erst mal mein Problem.
Gibt es eine Theorie, was da schief geht?

....

Also steckt das Problem in einer der Delphi-Units! Und da hat sich seit Delphi6 nichts getan?!

Wie wäre es selbst mal auf die Suche machen und Anwendung mit Debug-DCU's laufen lassen um Aufrufstack zu sehen.