|
Este es mi trozo de codigo:
constructor TNegus.Create(AOwner : TComponent);
var
x : integer;
NuevoItem : Tmenuitem;
ExisteMenu : boolean;
Menu : TMainMenu;
begin
inherited;
ExisteMenu:=false;
//ShowMessage(AOwner.ClassName);
NuevoItem:=TMenuItem.Create(AOwner);
NuevoItem.Caption := 'Modo seguridad';
//NuevoItem.OnClick := AbrirNegusFrm;
For x:=0 to Self.ComponentCount-1 do
if (Self.Components[x] is TMainMenu) then
begin
TMainMenu(Self.Components[x]).Items.Add(NuevoItem);
ExisteMenu:=true;
end;
if not ExisteMenu then
begin
Menu:=TMainMenu.Create(AOwner);
Menu.Items.Add(NuevoItem);
end;
end;
Pero me crea el menu en tiempo de diseño, yo lo quiero en tiempo de ejecucion.
|