Also .MaxLength ist auf 0.
Delphi-Quellcode:
procedure TForm1.edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then SendClick(Self);
edit2.Text:='';
end;
und:
Delphi-Quellcode:
procedure TForm1.SendClick(Sender: TObject);
var Text:string;
i:integer;
begin
BroadCast('System',edit2.Text);
end;
sry Broadast ist folgende
Delphi-Quellcode:
procedure TForm1.Broadcast(const Name, Text: String);
begin
memo1.Lines.Add(Name+': '+Text);
ClientSend('Said'+#13+Name+#13+Text+#13);
end;
Die Procedure ClientSend kann ich auf Anfrage auch posten^^
Aber das mit dem edit kapier ich einfach net
