Hallo,
ich will ein eigenes Menu aus der TntMainMenu Komponete erstellen,
die dann auch eigene MenuItems hat.
Und dort scheitere ich bereits kläglich, da ich mein Menü nicht dazu überreden
kann meine eingenen Items zu verwenden, sonder immer die Items der Klasse(TTntMainMenu) verwendet werden.
bisher sieht das wieder so aus(war schon mal viel mehr drin, da der erfolg aber ausblieb habe ich es wieder reduziert...):
...
type
{edMenuItem}
TedMenuItemtest = class(TTntMenuItem)
private
protected
public
published
end;
{edMainMenu}
TedMainMenutest = class(TTntMainMenu)
protected
public
function CreateMenuItem: TMenuItem; override;
end;
procedure Register;
implementation
procedure Register;
...
function TedMainMenutest.CreateMenuItem: TMenuItem;
begin
Result := TedMenuItemtest.Create(Self);
end;
end.
ich will ein eigenes Menu aus der TntMainMenu Komponete erstellen,
die dann auch eigene MenuItems hat.
Und dort scheitere ich bereits kläglich, da ich mein Menü nicht dazu überreden
kann meine eingenen Items zu verwenden, sonder immer die Items der Klasse(TTntMainMenu) verwendet werden.
bisher sieht das wieder so aus(war schon mal viel mehr drin, da der erfolg aber ausblieb habe ich es wieder reduziert...):
...
type
{edMenuItem}
TedMenuItemtest = class(TTntMenuItem)
private
protected
public
published
end;
{edMainMenu}
TedMainMenutest = class(TTntMainMenu)
protected
public
function CreateMenuItem: TMenuItem; override;
end;
procedure Register;
implementation
procedure Register;
...
function TedMainMenutest.CreateMenuItem: TMenuItem;
begin
Result := TedMenuItemtest.Create(Self);
end;
end.