schleife für radiogroup-controls

[Christian Seehase]

Moin Christoph,

warum sollte das nicht so gehen, besser gesagt, geht noch kürzer:
(zumindest wenn ItemIndex immer dem case Label entspricht)

Delphi-Quellcode:

  for i := 0 to radiogroup.Items.Count - 1 do begin
    if i <> radiogroup.ItemIndex) then begin
      radiogroup.Controls[i].Enabled := false;
    end;
  end;

Du kannst ja eine TRadioGroup auch als Parameter übergeben.