Dynamiczne dodawanie elementów do PopupMenu

[mate006]

Witam

Od kilku dni już się męczę z aby dynamicznie dodawać elementy do PopupMenu,

Znalazłem w googlach coś na ten temat ale w Delphi

Kod: Zaznacz cały

    procedure TForm1.FormCreate(Sender: TObject);
    var

        elementy, :TMenuItem; // element menu

    begin

        elementy:=TMenuItem.Create(MainMenu1); // utworzenie menu "Elementy"
        elementy.Caption:='&Elementy';
        PopupMenu1.Items.Add(elementy); // dodanie menu Elementy do głównego menu

    end;

Ale niestety nie działa po przeróbkach w C++

ProszÄ™ o pomoc

[Cyfrowy Baron]

TMenuItem czyli element PopupMenu czy MainMenu tworzysz dokładnie tak samo jak każdy inny komponent i tak samo nim zarządzasz:

Kod: Zaznacz cały

TMenuItem *myMenu = new TMenuItem(PopupMenu1);;
myMenu->Caption = "Zapisz";
PopupMenu1->Items->Add(myMenu);


oczywiście jak zrobisz delete myMenu to element zostanie usunięty.
Kolejna sprawa to stworzenie zdarzenia OnClick dla takiego elementu. Tworzy się je dokładnie tak samo, jak dla innych komponentów i podłącza po element TMenuItem. Czyli potrzeba jest deklaracja funcji-zdarzenia w pliku nagłówkowym i definicja w pliku źródłowym:

plik nagłówkowy:

Kod: Zaznacz cały

private:   
   void __fastcall ZapiszClick(TObject *Sender);

w pliku źródłowym:

Kod: Zaznacz cały

void __fastcall TForm1::ZapiszClick(TObject *Sender)
{
// jakieÅ› zadanie
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TMenuItem *myMenu = new TMenuItem(PopupMenu1);
myMenu->Caption = "Zapisz";
myMenu->Name = "Zapisz1";
myMenu->OnClick = ZapiszClick;
PopupMenu1->Items->Add(myMenu);
}


Oprócz PopupMenu1->Items->Add(TMenuItem*) masz jeszcze Insert(TMenuItem*), poczytaj w pomocy do tego komponentu.

[mate006]

Dzięki wielkie, po prostu źle przekształciłem z Delphi, ale już wiem o co chodzi
Pozdrawiam

[Jacek26jw]

Witam, mam pytanie o funkcję obsługującą OnClick.

Przykład:
Dodaje pozycje do popup menu. Potem chce odczytać indeks klikniętej pozycji i ją usunąc z popup. Jak to zrobic?
Nie chce tworzyć dla każdej pozycji nowej funkcji OnClick, tylko żeby obsługiwała ją jedna funkcja, której podaje się indeks klikniętej pozycji.

[Cyfrowy Baron]

Rozwiązaniem jest polimorfizm. Patrz serwis Cyfrowy Baron dział: teoria Rzutowanie typów, przypisanie polimorficzne.