Всем привет, решил не мучаться с UDP и написал(переписал) чат на сокетах (знакомый исходники дал хорошие). Так вот...
Решил все вопросы, остался 1 достаточно важный, есть к примеру 5 картинок, которые нужно использовать как авы, есть код отправки ника сервер-клиент
Цитата:
|
Socket.SendText('#UC:'+Form2.Edit4. Text);
|
Если не ошибаюсь, так вот, мне посоветовали авы с помощью RadioGroup сделать... Ктонибудь подскажите более подробно? Есть Form2 который пока что содержит в себе поле для порта, IP, ника, и 3 кнопки сохранение, вход, выход... Туда же я хочу запихать выбор авы, в результате всего этого ава должна появляться над ником в сообщении... Еще все это чудо должно использовать Canvas. (Картинки будут лежать в папке с чатом)
Сейчас так:
[NikName]: Текст
а надо:
[TImage]
[NikName]: Текст
И еще вопросик. Сейчас отправка сообещния из Memo происходит при нажатии ентера, как сделать при нажатии ctrl+enter?
Цитата:
procedure TForm1.Memo2KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then begin
Key := #0;
Button4.Click;
end;
end;
|
Как то так, заранее спасибо...