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

[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.