Foros Club Delphi

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)

tango01 06-01-2004 14:37:27

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.

delphi.com.ar 06-01-2004 15:55:54

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!

tango01 06-01-2004 16:11:51

gracias ... ya lo resolvi usando esta componente

saludos

delphi.com.ar 06-01-2004 16:15:59

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!


La franja horaria es GMT +2. Ahora son las 18:46:04.

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