Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Como asociar una ventana predefinida "Acerca de..." con un ítem de un MainMenu (https://www.clubdelphi.com/foros/showthread.php?t=78575)

PaulaGV 01-05-2012 00:21:50

Como asociar una ventana predefinida "Acerca de..." con un ítem de un MainMenu
 
hola buenas tardes!!!estoy creando un procesador de texto,cuento con MainMenu, y en uno de sus items, al cual llame "Acerca de..." quiero agregarle la ventana predefinida de "Acerca de..." la cual conseguí de la siguiente manera(por si alguien lo necesita):

En Turbo Delphi: Archivos de programa\Borland\BDS\4.0\Objrepos\DelphiWin32-->el archivo about.
En Delphi XE: Archivos de programa\Embarcadero\RAD Studio\8.0\Objrepos\en\DelphiWin32-->el archivo about.

el problema es que no se como asociar la ventana de "Acerca de..." con el ítem correspondiente del mainmenu.
Espero que puedan ayudarme, y desde ya muchas gracias!!!

ecfisa 01-05-2012 00:45:20

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.

PaulaGV 01-05-2012 05:36:01

Como asociar una ventana predefinida "Acerca de..."con un ítem de un MainMenu
 
discúlpame, pero hay cosas que no entiendo, o que son diferentes en la versión de delphi que tengo.

1-File -> New -> Other -> (Pestaña Forms) -> Click en About box, click en boton Ok. (NO AHÍ NINGUNA "PESTAÑA FORMS", PERO EN EL UNICO LUGAR DONDE ENCONTRE "About box" FUE: File -> New -> Other -> delphi projects-->Delphi files-->About box)

2-Modifica el form About a tu gusto.(ACÁ O AHÍ PROBLEMA).

3-Project -> Options -> (Pestaña Forms), quitá AboutBox de Auto-create forms.(QUE IMPLICA "QUITAR", por que solo puedo moverlo a Available forms, es posible borrar un AutoBox de Auto-create forms o Available Forms, por que lo intente y no pude)

3-File -> Use Unit... -> Unit2(ACÁ O AHÍ PROBLEMA).

gracias por tu tiempo!!:)

ecfisa 01-05-2012 09:02:10

Hola.

1. Dependiendo de la version de delphi puede variar la ubicación, pero con seguridad es About.

2. Al seleccionarlo y aceptar se abre el form About y podés modificarlo (Imágenes, etiquetas, etc).

3. Al decir quitar me refería a sacarlo de auto creación, es decir pasarlo a Available-forms.

4. No entiendo el problema aqui, pero también podés incluir la unidad manualmente. Si el nombre de la unidad del form About es por ejemplo Unit2, agregá la siguente línea en la unidad donde quieras utilizar el form about:
Código Delphi [-]
...
implementation

uses Unit2; // <== Esta línea

...

Saludos.

PaulaGV 02-05-2012 05:41:27

Como asociar una ventana predefinida "Acerca de..."con un ítem de un MainMenu
 
Muchas gracias!!!por la respuesta y las aclaraciones, finalmente logre mi objetivo.:)


La franja horaria es GMT +2. Ahora son las 18:49:30.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi