if Anweisungen Problem

[Tobiax]

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

[SirThornberry]

Hallo Kannst du dem Beitrag bitte einen aussagekräftigeren Titel geben der dein Problem ansatzweise beschreibt? Danke

[Tobiax]

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;

[mkinzler]

Doppelklick auf was?
Welcher Event?

Btw. if Radiobutton1.Checked then reicht.

[Tobiax]

Also und zwar wenn ich auf mein Button Click 1x verbindet er usw er macht alles was in der procedure drin steht nur die if anweisungen nicht aber wenn ich 2x auf denn button click gibt er auch die if anweisungen aus