Witam
chciałbym dodać do komunikatora nick osoby. Myslałem o polu edit i lpobieraniu wartosci tego pola, Jak to najprosciej zrobic
Dodam ze jestem kompletnie zielony w tej materii wiec sorki
Program pisze wykorzystujac sockety
Dodaj komponent TEdit do formy. Przy starcie programu wyczyść komponent poleceniem:
Edit1.clear;
dalej w kodzie programu możesz podstawić wartość z pola TEdit wykorzystując składnie:
Edit1.Text
np.: podstawiając do zmiennej nick:
var
nick : string;
begin
nick := Edit1.Text;
end;
:)
dzieki
a poźniej zeby w richedit pokazywal nick od konkretnej osoby to mam dodac to zdarzenie w ktorym miejscu? tak zeby po Enterze wysylal tekst z pola Edit gdzie wpisuje wiadomosc plus nick mojej osoby.
oto czesc o ktora mi chodzi:
procedure TMainForm.EditKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Klient.Socket.SendText(Edit.Text);
RichEdit.SelAttributes.Color := clRed;
RichEdit.SelAttributes.Style := [fsBold];
RichEdit.SelText := 'Ja ';
RichEdit.SelAttributes.Style := [];
RichEdit.SelAttributes.Color := clGreen;
RichEdit.SelText := '(' + TimeToStr(Now) + ')';
RichEdit.SelAttributes.Color := clBlack;
RichEdit.Lines.Add('');
RichEdit.Lines.Add(Edit.Text);
RichEdit.SelStart := Length( RichEdit.Text);
RichEdit.Perform(EM_SCROLLCARET, 0,0);
Edit.Text := '';
rk7771
cos mi to nie działa :( pisze ze ni moge uzyc stringa i TEdit
poradziłem sobie w ten sposob ze wyswietla mi wybrany nick w oknie rozmowy ale tylko jak ja cos pisze, natomiast jak zrobic zeby pobieral od nick klienta tzn. ten który wpisal u siebie w polu edit?
dzieki za wszelka pomoc i sorki za spam
musisz przeslac tego nicka, chyba ze masz je zapisane w jakiejs tablicy u kazdego klienta to pobierasz dana pozycje