Ver Mensaje Individual
  #2  
Antiguo 01-05-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Paula.
  • File -> New -> Other -> (Pestaña Forms) -> Click en About box, click en boton Ok.
  • Modifica el form About a tu gusto.
  • Project -> Options -> (Pestaña Forms), quitá AboutBox de Auto-create forms.
  • File -> Use Unit... -> Unit2
Crea el MenuItem en tu TMainMenu y en el evento OnClick del mismo:
Código Delphi [-]
procedure TForm1.MenuItemAboutClick(Sender: TObject);
begin
  with TAboutBox.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
end;
Si utilizas un TActionList crea la nueva acción y del mismo modo:
Código Delphi [-]
procedure TForm1.ActionABoutExecute(Sender: TObject);
begin
 with TAboutBox.Create(Self) do
  try
    ShowModal;
  finally
    Free;
  end;
end;
Luego asignas la acción al TMenuItem.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita