Varibale bei (Sender:Object) mit übergeben

[Die Muhkuh]

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:

Code:

[delphi][/delphi]