Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by freak4fun,
23. Jan 2005
Problem gelöst. :wink:
Danke für die Hife. :cheers:
MfG
freak
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by freak4fun,
23. Jan 2005
Rohstoffe := TMenuItem.Create(MainMenu1);
MainMenu1.Items.Add(Rohstoffe);
Rohstoffe.Caption := 'Rohstoffe';
for i := 0 to Stringliste.Count - 1 do
begin
RohEintraege := TMenuItem.Create(Rohstoffe);
RohEintraege.OnClick := Form1.Holz1Click; //Die Zeile ist neu
Rohstoffe. Add(RohEintraege);
RohEintraege.Caption := Stringliste;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by freak4fun,
23. Jan 2005
Also muss die Prozedur schon vorhanden sein, gut hab ich verstanden.
Also ich erstelle ja Unterpunkte zu "Rohstoffe". Nehmen wir mal in Stringliste Stehen Integerwerte.
Dann wird, wenn ich auf Rohsoffe klicke eine Liste mit Zahlen nach unten aufgeklappt.
Wenn ich jetzt auf die erste Zahl klicke soll eine Prozedur ausgeführt werden.
Diese Prozedur soll 1 heißen.
procedure eins;
begin...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by freak4fun,
23. Jan 2005
Tut mir leid, das hilft mir nicht weiter. Wie mache ich damit weiter? :gruebel:
MfG
freak
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by freak4fun,
23. Jan 2005
Hallo,
Ich habe ein MainMenu, bei dem ich im FormCreate Items aus eine Ini-Datei erstelle.
Aber wie kann ich jetzt die entsprechenden Prozeduren dazu erstellen? Ich weiß nicht ob
ihr damit was anfangen könnt, deshalb noch etwas Quelltext.
Rohstoffe := TMenuItem.Create(MainMenu1);
MainMenu1.Items.Add(Rohstoffe);
Rohstoffe.Caption := 'Rohstoffe';
for i := 0 to Stringliste.Count - 1 do
...