Hallo ich hab ein kleines Problem und zwar Programmiere ich gerade einen Chat mit Sockets geht alles super nur mein Porblem ist,
wenn ich connecte über meinem Butten macht er es zwar aber erst beim doppelklick sendet er die if Anweisungen was mach ich falsch?
Delphi-Quellcode:
procedure TForm2.Button2Click(Sender: TObject);
begin
Socketconnect;
if Radiobutton1.Checked then
begin
Form1.Client.Socket.SendText(Edit3.Text + ' hat denn Chat betreten');
end;
if Radiobutton2.Checked then
begin
Form1.Client.Socket.SendText(Edit3.Text + ' hat denn Chat betreten' + username + password);
end;
Form1.TreeView.Items.AddChildFirst(nil , Edit1.Text + ':' + Edit2.Text);
Form1.TreeView.Items.AddChild(nil, Edit3.Text + radiox)
end;
mfg TobiaX
