system menu / icons

[tango01]

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.

[delphi.com.ar]

No se si hay una forma mas sencilla, pero esto tiene que funcionar:

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!

[tango01]

gracias ... ya lo resolvi usando esta componente

saludos

[delphi.com.ar]

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

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

Saludos!