button mit neuen Funktionen

[saschi35]

Hallo eine frage:

wie ist es möglich das ich durch klicken auf einen Button immer wieder ein neues UNTERMENÜ vom MAINMENÜ erzeuge?

Sprich 1.Klick = Mainmenü/Untermenü 1
2.Klick = Mainmenü/Untermenü 2
3.Klick = Mainmenü/Untermenü 3

oder noch besser

sobald das Untermenü erzeugt wurde soll dazu auch eine eigene Form erstellt/gespeichert werden.

[hathor]

Zähl doch Button.Tag hoch...

Beispiel:

Delphi-Quellcode:

procedure TForm1.btnZoomClick(Sender: TObject);
begin
btnZoom.Tag:= btnZoom.Tag +1; if btnZoom.Tag=4 then btnZoom.Tag:=1;
if btnZoom.Tag=1 then...
.
.
.

[DeddyH]

Man könnte auch Items.Count auswerten.

[saschi35]

items auswerten?

habe es mir überlegt, kann man das ganze nur im Mainmenü machen das ich sage z.b.

ANZAHL (Obermenü)
1 (erzeugtes Untermenü durch button-klick)
2 (erzeugtes Untermenü durch button-klick)
3 ...
4 ...

[DeddyH]

TMenu.Items

[edit]Ein Formular mit einem MainMenu namens MainMenu, keine Items zur Designtime definiert:

Delphi-Quellcode:

procedure TFormTest.ButtonNewItem(Sender: TObject);
var
  Item: TMenuItem;
begin
  Item := TMenuItem.Create(self);
  Item.Caption := 'Item ' + IntToStr(MainMenu.Items.Count + 1);
  MainMenu.Items.Add(Item);
end;

[/edit]

[saschi35]

sehr gut so stell ich mir das vor,

dies aber als Untermenü

Sogdass ich ein Hauptmenü habe und unter dieses dann die neuen Menüs freischalte,

besteht darin noch die Möglichkeit, eingebene Daten aus einem EDIT darin zu speichern über ein MEMO oder ähnliches.