我觉得可不可以截获消息WM_SYSCOMMAND中的SC_MINIMIZE,对Form执行Hide过程
解决方案 »
- 发布DELPHI 7 LITE v3.0.6.x(安装版含绿色版合二为一)(可选D2007RTL)
- delphi如何自动关闭异常的对话框
- 服务的两个事件
- 【高手请进】这个问题好象不难,但好象会的不多啊(Memo字段读写问题)
- 有没有简单一点的办法,在线等待
- pagecontrol 如何设置无法访问其各个tab!???
- FASTREPORT怎么安装?
- 谈谈Delphi的编译器。
- 困惑啊!迷茫啊?比我嫁不了人还要慌!小鱼儿,enlightenment(阿明--进入准冬眠状态的超人)来啊!
- 今天圣诞节,给大家庆祝一下
- 上次没说清楚,一台电脑插两个网卡可不可能实现用一个网卡读另一个卡??
- 调查:你的DEPHI 5够稳定吗?
我干脆一并回答了吧,记得给分喔。
要让一个非主窗口不跟随主窗口最小化,可以重载该Form的CreateParams过程:
protected
procedure CreateParams(Var Param: TCreateParams);Override;
...
procedure TForm.CreateParams(Var Param:TCreateParams);
begin
Inherited CreateParams(Param);
With Param Do
begin
wndParent := GetDesktopWindow; //这一句可让该窗口不随主窗口最小化
ExStyle := ExStyle or WS_EX_TOOLWINDOW;//这一句使用该窗口不在任务栏显示
end;end;要模拟拖动标题栏的动作有很多方法,试试这个:
protected
procedure WMLBUTTONDOWN(Var Message: TWMLBUTTONDOWN);Message WM_LBUTTONDOWN;
...
procedure Tform1.WMLBUTTONDOWN(Var Message: TWMLBUTTONDOWN);
begin
PostMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,MakeLParam(Message.XPos,Message.YPos));end;