Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
22. Jul 2013
Gerade schnell ausprobiert:
procedure TFormTest.Button1Click(Sender: TObject);
var
OldIndex: integer;
begin
OldIndex := Radiogroup1.ItemIndex;
if OldIndex >= 0 then
SendMessage(Radiogroup1.Buttons.Handle, BM_SETCHECK, BST_UNCHECKED, 0);
SendMessage(Radiogroup1.Buttons.Handle, BM_SETCHECK, BST_CHECKED, 0);
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by DeddyH,
22. Jul 2013
Das wäre IMO die einfachste Möglichkeit.
Oder evtl. ein BM_SETCHECK absetzen. Ähnliche Problematik, allerdings mit einer Checkbox: http://forum.delphi-treff.de/index.php?page=Thread&threadID=30618