Menu dynamisch

schakal

Danke Maverick

Ich habe das ganze mal so gelöst, war ja nicht sauber formuliert von mir.

void __fastcall TForm1::FormCreate(TObject *Sender)
{
TMenuItem* item1 = new TMenuItem(MainMenu1);
item1->Caption = "menü";
TMenuItem* item2 = new TMenuItem(item1);
item2->Caption = "menü 1";
TMenuItem* item3 = new TMenuItem(item2);
item3->Caption = "menü 2";
TMenuItem* item4 = new TMenuItem(item2);
item4->Caption = "menü 3";

MainMenu1->Items->Add(item1);
item1->Add(item2);
item1->Add(item3);
item1->Add(item4);

TMenuItem* item11 = new TMenuItem(MainMenu1);
item11->Caption = "spez";
TMenuItem* item12 = new TMenuItem(item1);
item12->Caption = "menü 4";
TMenuItem* item13 = new TMenuItem(item2);
item13->Caption = "menü 5";
TMenuItem* item14 = new TMenuItem(item2);
item14->Caption = "menü 6";

MainMenu1->Items->Add(item11);
item11->Add(item12);
item11->Add(item13);
item11->Add(item14);
}

Finde den Aufbau gut und für mich logisch nachvollziehbar.

Was mir jetzt noch fehlt, sind die Clickevents zur Verarbeitung der Menüpunkte

Gruss Thomas

akari

Hallo

Siehe FAQ hier im Forum, Abschnitt Komponenten benutzen, Beitrag zur Laufzeit erstellen, anzeigen und Events zuweisen

bis bald
akari

5cript

akari schrieb:

Hallo

Siehe FAQ hier im Forum, Abschnitt Komponenten benutzen, Beitrag zur Laufzeit erstellen, anzeigen und Events zuweisen

bis bald
akari

Hast du für solche posts schon templates ?

schakal

Das fertige Programm:

//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// Von der IDE verwaltete Komponenten
      TMainMenu *MainMenu1;
      void __fastcall FormCreate(TObject *Sender);
private:	// Anwender-Deklarationen
      void __fastcall TForm1::OnClick1(TObject *Sender);
      void __fastcall TForm1::OnClick2(TObject *Sender);
      void __fastcall TForm1::OnClick3(TObject *Sender);
      void __fastcall TForm1::OnClick4(TObject *Sender);
public:		// Anwender-Deklarationen
           __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
TMenuItem* item1 = new TMenuItem(MainMenu1);
item1->Caption = "menü";

TMenuItem* item2 = new TMenuItem(item1);
item2->Caption = "menü 1";
item2->OnClick = OnClick1;        //

TMenuItem* item3 = new TMenuItem(item2);
item3->Caption = "menü 2";
item3->OnClick = OnClick2;

MainMenu1->Items->Add(item1);
item1->Add(item2);
item1->Add(item3);

TMenuItem* item11 = new TMenuItem(MainMenu1);
item11->Caption = "spez";

TMenuItem* item12 = new TMenuItem(item1);
item12->Caption = "menü 3";
item12->OnClick = OnClick3;

TMenuItem* item13 = new TMenuItem(item2);
item13->Caption = "menü 4";
item13->OnClick = OnClick4;

MainMenu1->Items->Add(item11);
item11->Add(item12);
item11->Add(item13);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OnClick1(TObject *Sender)
{
Label1->Caption = "1";
}
void __fastcall TForm1::OnClick2(TObject *Sender)
{
Label1->Caption = "2";
}
void __fastcall TForm1::OnClick3(TObject *Sender)
{
Label1->Caption = "3";
}
void __fastcall TForm1::OnClick4(TObject *Sender)
{
Label1->Caption = "4";
}
//---------------------------------------------------------------------------

Danke an alle die mir geholfen haben.

Gruss Thomas

kpeter

An das Löschen der Items (spätestens) zu Programmende hast du gedacht?

akari

Hallo

@ kpeter : Manuelles Löschen ist nicht nötig, da den MenuItems immer ein Owner mit übergeben wurde. Der Owner ist für das Löschen zuständig.

@Tim06TR : Noch nicht... aber vielleicht gibt es ja eine Forumsplugin, um Vorlagen für Antworten zu definieren?

bis bald
akari

schakal

Zum Beenden des Programm.

void __fastcall TForm1::OnClick2(TObject *Sender)
{
delete MainMenu1;
Application->Terminate();
}

Ich denk mal, ich lösche das Menü, gebe so den Speicher frei, und Beende das Programm.
Ist das gut?, bin ich ja mal gespannt.

schakal

Wenn ich das richtig sehe reicht:

Application->Terminate();

Gruss Thomas

akari

Hallo

Wenn du MainMenu1 nicht selbst mit new erstellst, dann solltest du es auch nicht manuzell löschen.
Terminate ist in Ordnung.

bis bald
akari

kpeter

akari schrieb:

Hallo

@ kpeter : Manuelles Löschen ist nicht nötig, da den MenuItems immer ein Owner mit übergeben wurde. Der Owner ist für das Löschen zuständig.

Das ist wohl wahr.
Allerdings setzt der Owner unseren Zeiger auf den Speicherbereich nicht auf NULL.
Das mag zum Programmende relativ egal sein, kann aber innerhalb des Progs beim unbeabsichtigten Versuch, auf diesen Zeiger zuzugreifen, schiefgehen....

mfg
kpeter