Hallo DeddyH, Vielen Dank für die schnelle Antwort,
ich hebe trotzdem heute ein Brett vom Kopf
kannst du mir bitte korrigieren
im Hauptformular habe ich folgendes stehen:
Formatierter Delphi-Quellcode:
Delphi-Quellcode:
unit HauptFormular;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls, Menus, Printers, JvExExtCtrls, JvExtComponent,
JvPanel, StdCtrls, Buttons,
Unit_A;
//mein Unit
type
TfrmMain =
class(TForm)
....
private
end;
var
frmMain: TfrmMain;
MenuItem1: TMenuItem;
......
implementation
uses
...
procedure TfrmMain.FormCreate(Sender: TObject);
begin
//hier wird die Prcedure MenuAufbau() aufgerufen
//diese Prcedure ist im Unit A im gleichen Project implementiert
end;
end.
im Unit_A steht folgendes:
Formatierter Delphi-Quellcode:
Delphi-Quellcode:
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;
Zitat:
Formatierter Delphi-Quellcode:
Delphi-Quellcode:
type
THauptformular = class(TForm)
...
procedure MeineProcedure(Sender: TObject);
...
end;
...
implementation
...
procedure THauptformular.MeineProcedure(Sender: TObject);
begin
//Code
end;
[quote="DeddyH"]
Delphi-Quellcode:
type
THauptformular = class(TForm)
...
procedure MeineProcedure(Sender: TObject);
...
end;
...
implementation
...
procedure THauptformular.MeineProcedure(Sender: TObject);
begin
//Code
end;
soll das im Unit_A? oder wohin
Danke