Chat - Nachricht mit ENTER senden

[FreakyF]

Hallo!

Ich programmiere gerade einen kleinen Chat.
Wie mach ich es am besten, dass ich die Nachricht durch Drücken der ENTER Taste senden kann?


Vielen Dank

Markus

[Aurelius]

Im OnKeyDown if KEy = VK_Enter then

[FreakyF]

Also so?

Delphi-Quellcode:

procedure TForm1.OnKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
begin 
  if key = #13 then 
   begin
 
   end; 
end;

[Sharky]

Zitat von FreakyF:

Also so?...

Wenn Du das KeyPress / KeyDown der Form auswerten möchtest musst Du daran denken KeyPreview der TForm auf True zu setzen.

Mache es besser im OnKeyPress des Edits in dem der Text eingegeben wird.

[FreakyF]

Zitat von Sharky:

Mache es besser im OnKeyPress des Edits in dem der Text eingegeben wird.

Ich kenn mich dabei nicht so sehr aus.
Was muss ich in das "OnKeyPress" Feld des Edits eingeben?

[Masteric]

ganz einfach:
du klickst das Edit an, damit es im Objectinspektor ausgewählt ist. Dann gehst auf auf den Reiter Ereignisse im Objektinspektor, dort suchst du dir OnKeypressed raus, da klickst du einfach doppelt in das weiße Feld hinter OnKeyPressed wordurch dann automatisch die Procedure in deinem Quelltext erstellet wird, da muss dann nur noch rein, if key = VK_Enter then ......

Gruß Masteric

[hincapie]

Ein kleines Beispiel aus einem Chat mit den Indys:

Delphi-Quellcode:

procedure TForm1.edMessageKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    begin
      IdTCPClient1.WriteInteger(1);
      IdTCPClient1.WriteLn(edMessage.Text);
      edMessage.Text := '';
      edMessage.SetFocus;
    end;
end;

edMessage ist das TEditFeld, dessen Text versendet werden soll...

[FreakyF]

Vielen Dank!

Hat geklappt