TMenuItem und RadioItem

[marabu]

Hallo Martin,

Zitat von Martin K:

Gibt es nicht eine einfache Möglichkeit (ohne tausend IF-Anfragen) heruaszubekommen, welches Item gerade checked ist (also so etwas wie ItemIndex) ?

Du kannst die Eigenschaft "Tag" für deine Zwecke missbrauchen:

Delphi-Quellcode:

procedure TDemoForm.ItemClick(Sender: TObject);
begin
  with Sender as TMenuItem do
  begin
    Checked := true;
    case Tag of
      1: ;
      2: ;
      3: ;
      else ShowMessage(Caption);
    end;
  end;
end;

Zitat von Martin K:

Wenn ich mehrere RadioItems habe die zu einer Gruppe gehören und ich klicke auf ein Item das bereits checked ist, so geht der Punkt weg (Checked = False).

Nur wenn du AutoCheck = True hast. In meinem Beispiel steht es auf False und das Problem existiert dann nicht mehr.

Grüße vom marabu