社区
Delphi
帖子详情
控制窗体
liagl
2005-10-18 02:36:25
有谁知道如何让窗体最小化后在任务栏上闪烁(类似MSN有消息到来的效果)?以及如果判断和控制窗口最大化和最小化。
谢谢先。
...全文
99
8
打赏
收藏
微信扫一扫
点击复制链接
分享
下载分享明细
分享
举报
写回复
8 条
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
g961681
2005-10-18
IsIconic(Application.Handle)判断是否是最小话状态!
打赏
举报
回复
赞
GARNETT2183
2005-10-18
截WM_SYSCOMMAND消息
procedure TGZMForm.WMSysCommand(var Msg: TWMSysCommand);
begin
if Msg.CmdType = SC_MINIMIZE then
Application.Minimize
else
inherited;
end;
打赏
举报
回复
赞
sunmingdong
2005-10-18
好像用
BOOL SetForegroundWindow(
HWND hWnd // handle of window to bring to foreground
);
更好一些
不用判断是否是最小化的,msn在接收到message时,调用setforegroundwindow(此时,如果你的应用在screen的最上面就什么都不做,否则就会努力把自己的form调到上面来,这时窗口就是闪烁的)
打赏
举报
回复
赞
chenylin
2005-10-18
只能截获最小化消息:
type
procedure MyMessage(var msg:Tmsg);message wm_syscommand;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
FlashWindow(Application.Handle,true);
end;
procedure TForm1.MyMessage(var msg: Tmsg);
begin
inherited;
if msg.message=61472 then Timer1.Enabled:=true else Timer1.Enabled:=false;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
if self.WindowState=wsMinimized then Timer1.Enabled:=true else Timer1.Enabled:=false;
end;
打赏
举报
回复
赞
fishmans
2005-10-18
闪烁可以用flashwindow()
判断最大最小化可以在onresize事件里判断windowstate,1为最小,2 为最大,0为normal
打赏
举报
回复
赞
aiirii
2005-10-18
FlashWindow(Application.Handle, true):
打赏
举报
回复
赞
liagl
2005-10-18
顶
打赏
举报
回复
赞
liagl
2005-10-18
自己顶
打赏
举报
回复
赞
相关推荐
C#使用键盘方向键
控制
窗体
移动
摘要:C#源码,菜单
窗体
,
窗体
移动 C#
窗体
移动示例,用键盘上的方向键
控制
窗体
的移动,上、下、左、右键各
控制
窗体
移动的方向,其实平时用的这种功能的不多,为了学习C#的目的,特将此源码发上来让新手们参考。
C# 用键盘
控制
窗体
的移动 实例源码(系统操作)
C# 用键盘
控制
窗体
的移动 实例源码(系统操作)
C#通过API
控制
窗体
鼠标键盘
C#通过调用API
控制
另外一个进程的
窗体
,输入数据,改变大小和位置,获取屏幕分辨率,
控制
鼠标等等,源码可以二次开发。里边有测试
窗体
代码,教会你怎么用
C#384-用键盘
控制
窗体
的移动源代码
C#384-用键盘
控制
窗体
的移动源代码
用键盘
控制
窗体
的移动.zip源码C#WinForm实例源码适合研究学习技术
用键盘
控制
窗体
的移动.zip源码C#WinForm实例源码适合研究学习技术用键盘
控制
窗体
的移动.zip源码C#WinForm实例源码适合研究学习技术 1.适合学生做毕业设计参考模板。 2.适合程序员学习开发研究用 3.适合小公司做项目...
发帖
Delphi
加入
微信扫一扫
点击复制链接
分享社区
下载分享明细
5094
社区成员
26.2w+
社区内容
Delphi 开发及应用
社区管理员
申请成为版主
帖子事件
创建了帖子
2005-10-18 02:36
社区公告
暂无公告