送分来罗!!!!!!!!!!!!(20分)

  • 主题发起人 主题发起人 superbenben2001
  • 开始时间 开始时间
S

superbenben2001

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.NotifyIconMessage(var Message: TMessage);
var
MousePoint:TPoint;
begin
Case Message.LParam of
WM_LButtonDBLclk:
begin
ShowWindow(handle,SW_SHOW);
end;
end;
窗体显示出来之后，并没得到焦点？？
怎么让窗体显示出来之后是激活的？？
我加上这一句还是不可以??
ShowWindow(handle,SW_SHOW);
windows.setfoucs(handle);
 
接分来罗！
 
不要
 
那到底怎么才能做到呢
 
在ShowWindow后加上SetForegroundWindow(Handle)试试
 
有点难度,洗耳恭听!
 
不行啊？？
在帮帮忙想想好吗
 
setwindowpos(handle,hwnd_topmost,left,top,width,height,swp_noactivate)
swp_noactivate???
这是不活动的意思。
如果改为活动是什么？？swP_??????
 
大家帮帮看看啊？
QQ是可以这样的啊！！！
究竟应该怎么做呢？？
 
各路高人帮帮忙吧
 
各位帮帮忙啊。
不过分的话我再加啊
 
高手们帮帮忙吧
 
哪位老大能帮帮忙
 
用frm.showmodale打开就自动focus了
 
begin
Case Message.LParam of
WM_LButtonDBLclk:
begin
ShowWindow(handle,SW_SHOW);
frm.showmodale;
end;

这样用不行啊？？
 
怎么没人帮帮忙呢
 
等了好久都没有帮解决？？
 
你试一试这个：
procedure TForm1.NotifyIconMessage(var Message: TMessage);
var
MousePoint:TPoint;
begin
Case Message.LParam of
WM_LButtonDBLclk:
begin
ShowWindow(handle,SW_SHOW);
Application.BringToFront;
end;
end;
成功了要给分呀。
 
您必须登录或注册才可回复。

Similar threads

I
窗体始终置于最前但不是主窗体
回复
0
查看
1K
import
I
I
ToolBar的一个问题
回复
0
查看
511
import
I
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
响应热键
回复
0
查看
502
import
I
后退
顶部