02. januar 2002 - 18:58Der er
44 kommentarer og 1 løsning
Demos/Internet/Chat/Client
Den der Chatklient i mappen C:\\Programmer/Borland/Delphi6/Demos/Internet/Chat/Client/
klienten er god til det jeg skal bruge den til, MEN! der hvor den Edit der hedder edMessage virker ikke efter min mening... skal man bare trykke enter for at sende kommandoen, for når jeg gør det sletter den det bare.
kan i hjælpe mig med at få edMessage til at fyre beskeden af man har skrevet ved at trykke på enter?
den er lavet sådan så den sender din besked når du trykker på enter, men på at se om dette står under keypress på edMessage:
procedure TForm1.edMessageKeyPress(Sender: TObject; var Key: Char); begin if key = #13 then begin IdTCPClient1.WriteLn(edMessage.Text); edMessage.Text := \'\'; end; end;
procedure TForm1.edMessageKeyPress(Sender: TObject; var Key: Char); begin if key = #13 then begin IdTCPClient1.WriteLn(edMessage.Text); ----------------------------------------- edMessage.Text := \'\';
ovenstående sætter besked feltet til blank når du hr trykket enter. Du kan bare sætte // foran eller slette linien helt ---------------------------------------- end; end;
jeg modtager godt nok data når jeg connecter, men så har jeg en kommando jeg skal bruge til at logge ordenligt ind på chatten, og når jeg skriver den sker der intet
stoney >> ja jeg tog lige 5 min på øjet :) ja hvordan går det den portscanner, hmmm hvad har jeg lavet i min ferie, hvis jeg siger øl hvad siger du så? og det er vist ikke så godt. men jeg skal nok se at få kigget på det :)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
Ny bruger
Nybegynder
Opret
Preview
