FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
system menu / icons
hola gente, alguien sabe como modificar el system menu de una venta (el que tiene las opciones de Cerra X, Minimizar _ , etc ).
quisiera agregar algunas opciones, y si ademas le podria agregar algun icono al lado de la X, _ , etc de la barra de titulo de la ventana seria muy bueno. gracias.
__________________
El secreto de la libertad está en no tener miedo. |
#2
|
||||
|
||||
No se si hay una forma mas sencilla, pero esto tiene que funcionar:
Código:
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); protected procedure WndProc(var Message: TMessage); override; private public end; var Form1: TForm1; Const MI_MENU = 100; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); var hSysMnu: HMENU; begin { Averigua el Handle del System Menu de la Ventana } hSysMnu := GetSystemMenu(Handle, False); { Agrega un Separador } AppendMenu(hSysMnu, MF_SEPARATOR, 0, ''); { Agrega la Opción } AppendMenu(hSysMnu, MF_BYPOSITION, MI_MENU, 'Mi &Opción'); end; procedure TForm1.WndProc(var Message: TMessage); begin if (Message.Msg = WM_SYSCOMMAND) and (Message.wParam = MI_MENU) then ShowMessage('Ha seleccionado mi Opción') else inherited; end; end.
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
__________________
El secreto de la libertad está en no tener miedo. |
#4
|
||||
|
||||
Me suponía que debía haber un componente para esto, por eso el texto:
Cita:
Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|