Új hozzászólás Aktív témák

• #2022 Fire/SOUL/CD félisten petison #2021

  Új Válasz 2020-10-12 19:30:22 #2022

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz petison #2021 üzenetére

  Persze, ezért adtam a megoldást...
  Törléskor nem ellenőrizted, hogy létezik-e az adott SUBMenu.. (mer' nem)
  TI: lehet -1, azaz nincs adott submenu... Azt meg nem lehet törölni.

  procedure TMainWin.DelMenu;
var TI: integer;
begin
TI:= WinMenu.Items.Items[0].Items[3].Count-1;
WinMenu.Items.Items[0].Items[3].Delete(TI);
end;

  Itt nem elleőrizted az adott submenu meglétét, feltételezted(azt nem kellene), hogy van...

• #2020 Fire/SOUL/CD félisten petison #2019

  Új Válasz 2020-10-05 09:45:58 #2020

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz petison #2019 üzenetére

  Hali!

  Talán másnak még hasznos lehet...

  

  Ez a kód kitörli a subsub menüket (amíg léteznek) a legmagasabb sorszámútól lefelé haladva.
  procedure TForm1.Button1Click(Sender: TObject);
begin
if MainMenu1.Items[0].Items[3].Count-1>-1 then begin
Form1.Caption:=MainMenu1.Items[0].Items[3].Items[MainMenu1.Items[0].Items[3].Count-1].Caption;
MainMenu1.Items[0].Items[3].Delete(MainMenu1.Items[0].Items[3].Count-1);
end;
end;

Új hozzászólás Aktív témák