MM funkt immer noch nicht hab jetzt schon eine Procedure dazu geschrieben aber geht immer erst mit doppelclick
Delphi-Quellcode:
procedure TForm2.RadioB;
begin
if Radiobutton1.Checked = True then
Form1.Client.Socket.SendText(Edit3.Text + ' hat denn Chat betreten');
if Radiobutton2.Checked = True then
Form1.Client.Socket.SendText(Edit3.Text + ' hat denn Chat betreten' + username + password);
end;