Menü.Untermenü.Checked := true

[newuser01]

Hallo marabu deine Idee ist auch nicht schlecht. Ich habe es aber bereits anders gelöst. Ich speicher die Sache in der Registry ab.

Delphi-Quellcode:

 

procedure TForm1.Untermenue1Click(Sender: TObject);
var
Regist: TRegistry;
begin

   try
   Regist := TRegistry.Create;
   Regist.Rootkey:=HKEY_CURRENT_USER;
   Regist.OpenKey('Software\ProgrammName',True);
   Regist.WriteString('Menue','0');
   Regist.Free;
 
   MainMenu1.Items[1].Items[0].Items[0].Checked := true;

            except
            //
   end;
end;

//--------------------------------------------------------------------------------------------


procedure TForm1.FormCreate(Sender: TObject);
var
Regist: TRegistry;
sMenueItem:String;
i,iMenueItem,iMenueAnzahl:integer;
begin

iMenueAnzahl := 5;

   try

   Regist := TRegistry.Create;
   Regist.Rootkey:=HKEY_CURRENT_USER;
   Regist.OpenKey('Software\ProgrammName',True);
   sMenueItem := Regist.ReadString('Menue');

   for i := 0 to iMenueAnzahl do
   begin
   if i = StrToInt(sMenueItem) then MainMenu1.Items[1].Items[0].Items[i].Checked := true;
   end;//for

   Regist.Free;

            except
            //
   end;
end;

und ein Danke für eure Hilfe !