Delphi主視窗工作列菜單的問題（轉寄WM_SYSCOMMAND到Application）

標籤：

Delphi的VCL架構在建立應用時TApplication是一個自動建立的隱藏視窗，其它建立的視窗是自動以該視窗為視窗，這就導致創始的主視窗在工作列的系統功能表只有三項，只要在主視窗的Create事件中將系統功能表用Application的系統功能表替換，並將SysCommand訊息轉寄到主視窗就正常了。

 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure OnMessage(var Msg: TMsg; var Handled: Boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  GetSystemMenu(Application.Handle,True);
  Application.OnMessage:=OnMessage;
end;

procedure TForm1.OnMessage(var Msg: TMsg; var Handled: Boolean);
begin
  case Msg.message of
    WM_SYSCOMMAND:
      begin
        SendMessage(Handle,Msg.message,Msg.wParam,Msg.lParam);
        Handled:=True;
      end;
  end;
end;

end.

http://blog.csdn.net/missmecn/article/details/5319592

Delphi主視窗工作列菜單的問題（轉寄WM_SYSCOMMAND到Application）