首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

诚信求教一个难题,望解答

2012-03-24 
诚信求教一个难题,望各位高手解答普通窗体点击任务栏上的小图标会缩小到任务栏。再点击会还原出来。。问题来

诚信求教一个难题,望各位高手解答
普通窗体点击任务栏上的小图标会缩小到任务栏。再点击会还原出来。。问题来了
在窗体样式是bsNone的情况下 点任务栏上的按钮,并不能将窗口缩回到任务栏。

分不是很多,希望各路高手帮指点下哈!


[解决办法]
应该楼主自己没去试,在等直接的结果,我反汇编看了下依然也只能消息,而且比较多不好判断,后面一想,直接测试不是来的更快,因此下面注释的是测试前的,逐个排除后得到下面结果, 只需按以前代码改这个消息函数即可。
procedure TForm1.OnAppMessage(var Msg: TMsg; var Handled: Boolean);
begin
if //(Msg.message >0 )
// and((Msg.message <>49214 )) //要查是什么消息,因为一直断所以排除
//and((Msg.message <>15 )) //要查是什么消息,因为一直断所以排除
// and((Msg.message <>275 )) //要查是什么消息,因为一直断所以排除
// and((Msg.message <>45057 )) //好像是失去焦点
((Msg.message =45056 )) //好想是得到焦点,换成十六进制$b000,可以查消息api
then
begin
// ShowMessage(IntToStr(Msg.message));
Handled := True;
Application.Minimize; //程序最小化,
//到此已经完成点击最小话,但要判断是任务栏获取焦点还是数遍点击窗口
//所以还需要在窗体上最判断. 需要自己测试下。
end;
end;

热点排行