我们有时候要让每一个窗口在任务栏上有一个按钮,但不方便的是,DELPHI为我们做得太多,
甚至有些过份了点,呵,还好有办法解决.
首先,看VCL源码
procedure TCustomForm.WMSysCommand(var Message: TWMSysCommand);
begin
with Message do
begin
if (CmdType and $FFF0 = SC_MINIMIZE) and (Application.MainForm = Self) then
Application.WndProc(TMessage(Message))
else if (CmdType and $FFF0 <> SC_MOVE) or (csDesigning in ComponentState) or
(Align = alNone) or (WindowState = wsMinimized) then
inherited;
if ((CmdType and $FFF0 = SC_MINIMIZE) or (CmdType and $FFF0 = SC_RESTORE)) and
not (csDesigning in ComponentState) and (Align <> alNone) then
RequestAlign;
end;
end;
可以得知,MainForm的一些消息被传给了应用程序对象Application,我们要做的就是截取这
些消息,干我们自己想干的.
1.在主窗体unit中
声明
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
procedure CreateParams(var Params:TCreateParams); override;
实现
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
case message.CmdType of
SC_MAXIMIZE,SC_MINIMIZE,SC_RESTORE: //这几个消息自己处理
DefWindowProc(Self.Handle,message.Msg,message.CmdType,0)
else
inherited; //交给DELPHI
end;
end;
procedure TForm1.CreateParams(var Params:TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW ;//让主窗体出现在任务栏上
end;
好了,这样主窗体就会出现在任务栏上,而且最小化也不会消失,现在要做的就是
让Application在任务栏上的按钮消失,用以下代码
procedure TForm1.FormShow(Sender: TObject);
begin
showwindow(Application.Handle ,sw_hide);
end;
其它的窗体想出现在任务栏,只要像主窗体一样重载CreateParams方法,并用相同的代码,
因为是非MainForm,所以不用截取那几个消息.
这样就实现了一个应用程序有多个任务栏按钮,而且不会相互影响.
////////////
之后想出一个更好的办法,即建立一个MainForm并不让它可见,也不显示在任务栏,当然,
也要把Application从任务栏去掉,其它窗体用上面的方法让它显示在任务栏上,当然,为了
方便可以写一个基类,在这个基类的OnClose事件中判断是否为最后一个本类的实例,是则
关闭MainForm以结束应用程序.说说,还没时间写出来^_^