[C1berBoy]

Код:

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: Пользуемся тегами! За следующее нарушение будет бан.

как после очистки поля ввода вернуть каретку в начало?