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

• #2019 petison tag

  Új Válasz 2020-09-17 17:07:09 #2019

  Ú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

  

  petison

  tag

  Üdv!

  Nem tudom, hogy kapok-e választ, nem tűnik aktívnak a topic.
  Szóval kezdőcske vagyok még programozásban.
  Én ugyan nem Delphi-t, hanem Lazarus-t használok.
  A problémám a következő, létrehozok almenüket a főmenüben futásidőben.
  Működik szépen. A gondom az, hogy milyen módon tudom törölni a az elemeket, egyesével.
  Ezt a módszert alkalmaztam:

  procedure TMainWin.AddMenu;
  begin
  if WinMenu.Items.Items[0].Items[3].Count < 10 then
  begin
  N := TMenuItem.Create(WinMenu.Items.Items[0].Items[3]);
  N.OnClick:= @OpenRC;
  WinMenu.Items.Items[0].Items[3].Add(N);
  end;
  end;

  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;

  Törlési kísérletnél egy szép Acess Violation-t kapok.
  

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