Delphi主視窗工作列選單的問題
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.