Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.11.2008, 10:57   #1
mar4elo
Форумчанин
 
Регистрация: 17.04.2008
Сообщений: 146
Восклицание Пишу чат. Иесть проблема

Сейчас пишу чат, почти все гатово!
Столкнулся с такой проблемой
Есть TEdit -- Вводим сообщение кот. хотим отправить
Далее выделяем кусок сообщения нажимаем на компонент
где можно выбрать цвет и тут косяк !!! Как сделать чтобы добовляло
Html код автоматически в TEdit
Например
Изначально
Текст сообщение

Потом
Текст соо<Font Color = FFFFFF>щения</font>

для вывода сообщений использую webbrowser(Чтобы смайлики потдерживало).
mar4elo вне форума Ответить с цитированием
Старый 25.11.2008, 15:05   #2
Dj_smart
Капсула от спама
Форумчанин
 
Аватар для Dj_smart
 
Регистрация: 04.03.2008
Сообщений: 779
По умолчанию

Ыыы - всё просто)))
Код:
Edit1.SelText:='<Font Color = FFFFFF>'+Edit1.SelText+'</font>';
Только надо избежать ситуации когда юзер ничего не выделит:
Код:
if Edit1.SelText<>'' then Edit1.SelText:='<Font Color = FFFFFF>'+Edit1.SelText+'</font>';
Если данный ответ не столь конкретен, как Вы желаете его увидеть, возможно необходимо поразмыслить, стоит ли вопрос того, чтобы о нём спрашивать на форуме?
CncFiles.ru - бесплатный файловый хостинг
Dj_smart вне форума Ответить с цитированием
Старый 25.11.2008, 20:54   #3
mar4elo
Форумчанин
 
Регистрация: 17.04.2008
Сообщений: 146
По умолчанию

Спасибо! Просто несталкивался с этим
mar4elo вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Интернетовский чат vizor9 Фриланс 76 01.01.2008 22:30
Делаю сайты, пишу маленькие/большие скрипты. Пишу веб-приложения и приложения под Windows. SkyM@n Фриланс 3 29.12.2007 16:21
Локальный чат. GAGARIN-NEW Софт 0 12.12.2007 22:43