请问如何使消息窗口出现在最前端！不胜感激！

Question

给你一个想法，做成MSN一样的消息通知框，我不会，

Answer 1

在OnDataReceived事件中加入SetForegroundWindow(self); 

Answer 2

建议使用 net send
function NetMessageBufferSend(servername:PWideChar;
                              MsgName:PWideChar;
                              FromName:PWideChar;
                              Buf: PWideChar;
                              var BufLen:integer):integer;cdecl;//定义函数function NetMessageBufferSend; external 'netapi32.dll' name 'NetMessageBufferSend';function SendMsg(Toh,From,Msg:string):integer;
var
  ToName :array [0..64] of WideChar;
  WMsgText:array [0..1000] of WideChar;
  MsgLen, i:integer;
begin
    for i := 0 to 64 do ToName[i] := #0;
    StringToWideChar(Toh,ToName,i);
    for i := 0 to 1000 do WMsgText[i] := #0;
    StringToWideChar(Msg,WMsgText,i);
    NetMessageBufferSend(nil,ToName,nil,@WMsgText,MsgLen);
end;如果对方起动信使服务，不过你管理网吧不成问题。

Answer 3

SetWindowPos(Form1.hWnd, HWND_TOPMOST, 0, 0, 0, 0, flags)
这样看看可以不可以

Answer 4

MessageBox(Handle,'I Am Top Most','Message',MB_OK or MB_SYSTEMMODAL);

Answer 5

你客户端的窗体类型formstyle设定为fsStayOnTop，就可以了

Answer 6

听各位前辈的意思是在客户端新建一个Form来显示从管理员发送过来的消息吗？因为我的客户端是隐藏的，要按Alt+Ctrl+Del才能看见的那种，不知用楼上几位前辈的方法是否可行，请指教！！

Answer 7

Form1.FormStyle=fsStayOnTop;
当客户端收到消息后
Form1.Hide;
Form1.Show;
我的同学在打CS时，就游戏里面跳出来了：-）
BTW，我写的时候是放在托盘里的，但没有图标，看不到。

Answer 8

那个net send定义的要改一下才没问题
function NetMessageBufferSend(servername:PWideChar;
                              MsgName:PWideChar;
                              FromName:PWideChar;
                              Buf: PWideChar;
                              var BufLen:integer):integer;stdcall;
                                                          ~~~~~~~ 
//定义函数

Answer 9

窗体类型formstyle设定为fsStayOnTop，就可以了

Answer 10

将窗口的风格设置成topMost 参考setwindowlong

Answer 11

但是在星际和帝国之类的游戏中显示一个窗体好象不是太正常，颜色也会变，而且只能显示几秒钟就没了。要回到Win界面才能再看到。