Hallo das ist mein erster Beitrag und ich weiß nicht genau ob ich jetzt alles richtig gemacht habe.
Aber zu meinem Problem bei Delphi
Ich hab zurzeit folgendes Problem. Die Procedure Task_neu muss Variabel sein. Das heißt ihr möchte eine Variable mit dem Onlick Event übergeben.
Delphi-Quellcode:
procedure TForm2.Task_Neu([b]
var i:Integer;[/b] Sender: TObject);
var SelectedURL,
url:
string;
begin
Taskausfuehren[0-9,0-19];
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;
Form1.MainMenu1.Items[0].Add(MeinMenue[i]);
end;
end;
[edit=SirThornberry] Mfg, SirThornberry[/edit]