FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
"Acerca de" en el Menu SystemControl (SystemMenu) del Formulario
Como introduciria el clasico "Acerca de" en el menu SystemControl (SystemMenu)(Es el menu que tiene toda ventana (formulario) arriba a la izquierda que contiene, restaurar, mover, tamaño, minimizar, maximizar y cerrar). Gracias.
Última edición por dmassive fecha: 11-03-2004 a las 14:03:24. |
#2
|
||||
|
||||
Dicho un poco de memoria necesitas usar la función GetSystemMenu para obtener el identificador del menú de sistema, InsertMenuItem para insertar el item deseado e implementar un manejador para el mensaje WM_COMMAND de manera que puedas detectar cuándo se selecciona el nuevo ítem y desplegar entonces tu cuadro de diálogo.
// Saludos |
#3
|
||||
|
||||
Gracias!! Aqui dejo el codigo fuente por si alguien mas lo necesita:
Código:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND; public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.WMSysCommand(var Message: TWMSysCommand); begin inherited; if Message.CmdType = $F200 then form2.ShowModal end; procedure TForm1.FormCreate(Sender: TObject); var s: string; begin AppendMenu (GetSystemMenu (Handle, FALSE), MF_SEPARATOR, 0, ''); s := '&Acerca De...'; AppendMenu(GetSystemMenu(Handle, False), MF_STRING, $F200, PChar(s)); end; end. Última edición por dmassive fecha: 11-03-2004 a las 14:01:27. |
#4
|
||||
|
||||
Cita:
// Saludos |
#5
|
||||
|
||||
está muy bien... esta chido... y agregue al menú los items que quiero...
pero no me está manejando el evento cuando hago un click sobre los items... conste que lo hice al pie de la letra.
What's wrong????
__________________
Buena caza y buen remar... http://mivaler.blogspot.com |
#6
|
||||
|
||||
bueno encontre la solución a mi problem...
agregue a mi formulario un TApplicationEvents y en el manejador OnMessage he agregado las porciones de código de las que nos hablaba nuestro amigo dmassive:
ahora si... a bailar en serio.
__________________
Buena caza y buen remar... http://mivaler.blogspot.com |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|