Hi Luke_83,
erst einmal: Herzlich Willkommen in der Delphi-PRAXiS
So, wie Du das haben möchtest, wird das nicht klappen. Du könntest aber die Property
.Tag dafür missbrauchen. So wie ich sehe, brauchst Du nur eine Integer-Variable:
Delphi-Quellcode:
procedure TForm2.Task_Neu(Sender: TObject);
var SelectedURL,
url:
string;
I: Integer;
begin
// Und hier kommst Du mit folgendem Code wieder an Deinen Wert:
I := (Sender
as TMenuItem).Tag;
end;
procedure TForm2.Button22Click(Sender: TObject);
var MeinMenue:
array[0 ..recordmax]
of TMenuItem;
i,i2:Integer;
begin
//Vorhandenes Menü Löschen
for i:=0
to recordmax
do Form1.MainMenu1.Items[0].Clear;
//Menü neu aufbauen
for i := 0
to recordmax
do begin
MeinMenue[i] := TMenuItem.Create(self);
MeinMenue[i].Caption := Task[1,i].FeldName;
MeinMenue[i].OnClick:=Task_Neu;
MeinMenue[i].Tag := IntegerVariable;
// << hier kommt Deine Variable hin, die Du noch übergeben willst.
Form1.MainMenu1.Items[0].Add(MeinMenue[i]);
end;
end;
Wenn Du die Delphi-BB-Code-Tags um Deinen Quellcode schreibst, dann stellt das Forum Deinen Quellcode wie in Delphi dar: