|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Вопросы по NetChat
1) как вывести в отдельном окне все ip компов у которых включена программа и можно было выбирать их
2) как отправлять запрос который не будет виден в пользователям? |
#2
|
||||
|
||||
Код:
procedure TForm1.RichEdit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var str,a: string; begin StaticText1.Caption:=IntToStr(RichEdit2.GetTextLen+1); if (GetKeyState(VK_CONTROL) >= 0) and (Key = 13) then // Если пользователь нажал Enter begin str:=#13#149' '+Nick+' '+'('+TimeToStr(DateTimePicker1.Date)+' '+DateToStr(DateTimePicker1.Date)+')'; // составляем сообщение a:=RichEdit2.text; AddText(RichEdit1, str+#13, True, clblue); //выводим логин и дату AddText(RichEdit1, a, false, clblack); //выводим сам текст RichEdit2.Clear; //Чистим поле ввода PlaySound('SND1', 0, SND_RESOURCE or SND_ASYNC); //звук отправки NET_Clear; // чистим сетевой буфер //NET_Write(@str[1], Length(Str)); // пишем данные NET_Send(nil, 21666, false); // посылаем их широковещательным пакетом StaticText1.Caption:='0'; end; end; lmikle: Пользуемся тегами! За следующее нарушение будет бан. как после очистки поля ввода вернуть каретку в начало? |
#3
|
||||
|
||||
ну что вообще ни кто не знает как?
|
#4
|
||||
|
||||
Детский, блин, сад. Читай DRKB
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |