W
wind8bell
Unregistered / Unconfirmed
GUEST, unregistred user!
接收可以正确接收。
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var
recstr:string;
begin
recstr:=Clientsocket.Receiveln;
if Application.MessageBox(PChar('有新消息，要查看吗？'), '提示', MB_OKCANCEL + B_ICONQUESTION) = IDOK then
//form5.show;
end;
但是把注释那一行加上后，form5倒是显示出来了，但是程序也没反应了。form5也关不掉。（我把form5里的所有控件都去掉了，现在是一个空窗体，还是不行）
那么我想在tcpserver收到消息显示form5，应该怎么做
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var
recstr:string;
begin
recstr:=Clientsocket.Receiveln;
if Application.MessageBox(PChar('有新消息，要查看吗？'), '提示', MB_OKCANCEL + B_ICONQUESTION) = IDOK then
//form5.show;
end;
但是把注释那一行加上后，form5倒是显示出来了，但是程序也没反应了。form5也关不掉。（我把form5里的所有控件都去掉了，现在是一个空窗体，还是不行）
那么我想在tcpserver收到消息显示form5，应该怎么做