MainMenu - Prozeduren bei Items

[freak4fun]

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.

Delphi-Quellcode:

Rohstoffe := TMenuItem.Create(MainMenu1);
MainMenu1.Items.Add(Rohstoffe);
Rohstoffe.Caption := 'Rohstoffe';
for i := 0 to Stringliste.Count - 1 do
    begin
      RohEintraege[i] := TMenuItem.Create(Rohstoffe);
      Rohstoffe. Add(RohEintraege[i]);
      RohEintraege[i].Caption := Stringliste[i];
    end;

Also wenn ich jetzt auf einen Eintrag clicke soll auch noch was passieren.

MfG
freak

[BenjaminH]

Delphi-Quellcode:

Rohstoffe := TMenuItem.Create(MainMenu1);
Rohstoffe.OnClick:=Procedurename;
MainMenu1.Items.Add(Rohstoffe);

So müsste das klappen

[freak4fun]

Tut mir leid, das hilft mir nicht weiter. Wie mache ich damit weiter? :gruebel:

MfG
freak

[JasonDX]

Es kommt ganz darauf an, was du machen willst
Eine Prozedur zur Laufzeit erstellen ist nicht möglich.
Wenn du das ganze dynamisch haben willst, könntest du gegebenenfalls DLLs nehmen
Dieser Code

Delphi-Quellcode:

Rohstoffe.OnClick:=Procedurename;

bestimmt jedenfalls, dass wenn auf das MenuItem Rohstoffe geklickt wird, dass die prozedur Procedurename (oder wie du sie auch nennen willst) aufgerufen wird.
Dann musst du halt schauen, was du in der Prozedur tust.

[freak4fun]

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.

Delphi-Quellcode:

procedure eins;
begin
ShowMessage('Sie haben die 1. Option gewählt.');
end;

Dann muss der Aufruf so aussehen?:

Delphi-Quellcode:

RohEintraege[i].OnClick := eins;

Dann bekomm ich Folgenden Fehler:

Inkompatible Typen: Methodenzeiger und Reguläre Prozedur.

Was mache ich falsch?

MfG
freak

[freak4fun]

Delphi-Quellcode:

Rohstoffe := TMenuItem.Create(MainMenu1);
MainMenu1.Items.Add(Rohstoffe);
Rohstoffe.Caption := 'Rohstoffe';
for i := 0 to Stringliste.Count - 1 do
    begin
      RohEintraege[i] := TMenuItem.Create(Rohstoffe);
      RohEintraege[i].OnClick := Form1.Holz1Click; //Die Zeile ist neu
      Rohstoffe. Add(RohEintraege[i]);
      RohEintraege[i].Caption := Stringliste[i];
    end;

Dann noch:

Delphi-Quellcode:

procedure TForm1.Holz1Click(Sender: TObject);
begin
   ShowMessage('Es klappt. *juhu*');
end;

und:

Delphi-Quellcode:

TForm1 = class(TForm)
  ...
  procedure Holz1Click(Sender: TObject);

Und das klappt. :gruebel:
Jetzt noch die Frage, wie man die Prozeduren dynamisch einfügt, also nicht alle Items auf die gleiche Prozedur zugreifen. :wall:

Kann mir da einer weiterhelfen?

MfG
freak

[freak4fun]

Problem gelöst. :wink:

Danke für die Hife. :cheers:

MfG
freak