Varibale bei (Sender:Object) mit übergeben

[Luke_83]

Delphi-Quellcode:

procedure TForm2.Task_Neu(Sender: TObject);
var SelectedURL,url:string;
  I1,I2: Integer;
begin
  // Und hier kommst Du mit folgendem Code wieder an Deinen Wert:
  I1 := (Sender as TMenuItem).Hint;
  I2 := (Sender as TMenuItem).Tag;
  form2.Tasks_shell(i1+1,i2+1);
end;


procedure TForm2.Button22Click(Sender: TObject);
var MeinMenue: array[0 ..recordmax] of TMenuItem;
i,i2:Integer;
begin
//Vorhandenes Menü Löschen

  Form1.MainMenu1.Items[0].Clear;

//Menü neu aufbauen
//for i2:=0 to 9 do begin
  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 := i;  // << hier kommt Deine Variable hin, die Du noch übergeben willst.
  MeinMenue[i].Hint:=1;
  Form1.MainMenu1.Items[0].Add(MeinMenue[i]);
  end;
//end;

end;

Danke für die Antworten habs hinbekommen und läuft jetzt auch mit zwei Variablen