TAstaClientSocket.SendChatPopup

Declaration
procedure SendChatPopup(S: string);

Description
This method will broadcast a message from the sending client to all the other clients connected to the same server. This message is intrusive and it will stop the other clients from working while the message is displayed in a modal dialog that halts the other clients' progress. See SendChatEvent for an alternative.

The following code reads the input from a Memo named mChatMessage and broadcasts it to all the clients (including the sending client) in a popup dialog box.

procedure TForm1.Button1Click(Sender: TObject);

begin

AstaClientSocket1.SendChatPopup(mChatMessage.Text);

end;