FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#3
|
|||
|
|||
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. |
|
|
|