Foros Club Delphi - system menu / icons

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - system menu / icons (https://www.clubdelphi.com/foros/showthread.php?t=6391)

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.

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.

Saludos!

gracias ... ya lo resolvi usando esta componente

saludos

Me suponía que debía haber un componente para esto, por eso el texto:

Cita:

delphi.com.ar comentó:
No se si hay una forma mas sencilla, pero esto tiene que funcionar

Saludos!