Hallo
ich brauche Hilfe wieder,
ich habe folgendes Problem: in einem Hauptformular wird eine Procedure aus einem anderen
Unit (Unit_A) aufgerufen.
Diese Procedure sorgt dafür, dass das Menü zur Laufzeit aufgebaut wird.
es funktioniert alless wunderbar. Mein Problem ist, wie kann ich MenüItem ein OnClick Erreignis zuweisen.
Mein Versuch unten scheitert an unten gennanten Fehlermeldungen.
Wer kann mir helfen?
Formatierter Delphi-Quellcode:
Delphi-Quellcode:
Hauptformular:
unit HauptFormular;
interface
uses Unit_A, .....;
....
procedure TfrmMain.FormCreate(Sender: TObject);
begin
//hier wird die Prcedure MenuAufbau() aufgerufen
//diese Prcedure ist im Unit A im gleichen Project implementiert
end;
//Unit_A
Unit_A
prcedure MenuAufbau();
begin
//hier wir das Menü dynamisch aufgebaut
// ich möchte hier jedem Menüeintrag ein Ereignis zuweisen
MeinItem.Onclick := MeineProcedure;
end;
procedure MeineProcedure(Sender: TObject);
begin
showmessage( TMenuItem(Sender).
Name);
end;
[Fehler] Unit_A.pas(218): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'
[Fehler] Unit_A.pas(224): Bei der vorherigen Deklaration von test wurde die Direktive 'overload' nicht angegeben
[Fehler] Unit_A.pas(61): Ungenügende Forward- oder External-Deklaration: 'MeineProcedure'
[Fataler Fehler] Hauptformular.pas(14): Verwendete
Unit 'Unit_A.pas' kann nicht compiliert werden