Halla Zusammen,
brauch mal bitte Euere Hilfe!
Hab folgendes Problem:
================================================== =======================
procedure TuWas(Sender: TObject);
begin
ShowMessage('Ich tu was');
end;
var SubMenu: TMenuItem;
procedure InstalliereWas(MainMenu: TMainMenu);
begin
SubMenu:=TMenuItem.Create(NIL);
SubMenu.Caption:='TU WAS !!!';
SubMenu.OnClick:=TuWas; // <============ HIER IST SCHLUSS
MainMenu.Items.Add(SubMenu);
end;
================================================== =======================
Also ich ruf die Funktion InstalliereWas(Form1.MainMenu) auf und
es wird ein weiterer Menueintrag im Hauptfenster angehängt.
Das Teil soll in ein
Package rein, damit ich dynamisch Teile dazuladen kann etc.
Wer kann mir helfen.
PS: War da nicht was mit MakeProcObject oder so ähnlich ????