on[XYZ]-Methoden: Nicht aufrufen wenn Programmcode die Komponente ändert

[Uwe Raabe]

Ich umgehen das Problem meistens mit einem Integer-Property, bei dem ich im Setter nur dann etwas mache, wenn es sich ändert.

Nehmen wir z.B. ein einfaches Form mit einer RadioGroup und einem Label. Die Pas-Datei sieht dann so aus:

Delphi-Quellcode:

type
  TForm238 = class(TForm)
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    FSelectedIndex: Integer;
    procedure SetSelectedIndex(const Value: Integer);
  public
    property SelectedIndex: Integer read FSelectedIndex write SetSelectedIndex;
  end;

...

procedure TForm238.FormCreate(Sender: TObject);
begin
  FSelectedIndex := RadioGroup1.ItemIndex;
end;

procedure TForm238.RadioGroup1Click(Sender: TObject);
begin
  SelectedIndex := RadioGroup1.ItemIndex;
end;

procedure TForm238.SetSelectedIndex(const Value: Integer);
begin
  if FSelectedIndex <> Value then
  begin
    FSelectedIndex := Value;
    Label1.Caption := RadioGroup1.Items[FSelectedIndex];
    RadioGroup1.ItemIndex := FSelectedIndex;
  end;
end;

[Der schöne Günther]

Das hatte ich natürlich zuallererst gemacht - Erst schauen, ob ich es denn überhaupt erst ändern muss. Aber es bleibt ja immer noch der Fall dass

1. Der Benutzer 'Ding 283' auswählt
2. Die RadioGroup Auskunft über einen Zustand des Dings gibt
3. Dieser Zustand ist anders als der des zuletzt ausgewählten Dings
4. Ich durch die Änderung der RadioGroup Dinge auf das setzen möchte, was ich sowieso gerade ausgelesen habe

[DeddyH]

Gerade schnell ausprobiert:

Delphi-Quellcode:

procedure TFormTest.Button1Click(Sender: TObject);
var
  OldIndex: integer;
begin
  OldIndex := Radiogroup1.ItemIndex;
  if OldIndex >= 0 then
    SendMessage(Radiogroup1.Buttons[OldIndex].Handle, BM_SETCHECK, BST_UNCHECKED, 0);
  SendMessage(Radiogroup1.Buttons[1].Handle, BM_SETCHECK, BST_CHECKED, 0);
end;

Aaaaaber: das geht dann an der Logik der Radiogroup komplett vorbei, d.h. der ItemIndex wird nicht aktualisiert usw.

[Uwe Raabe]

Zitat von Der schöne Günther:

Das hatte ich natürlich zuallererst gemacht - Erst schauen, ob ich es denn überhaupt erst ändern muss. Aber es bleibt ja immer noch der Fall dass

1. Der Benutzer 'Ding 283' auswählt
2. Die RadioGroup Auskunft über einen Zustand des Dings gibt
3. Dieser Zustand ist anders als der des zuletzt ausgewählten Dings
4. Ich durch die Änderung der RadioGroup Dinge auf das setzen möchte, was ich sowieso gerade ausgelesen habe

Ich kann dir nicht ganz folgen