Форум программистов «Весельчак У»
Добро пожаловать,
Гость
. Пожалуйста,
войдите
или
зарегистрируйтесь
.
Вам не пришло
письмо с кодом активации?
1 час
1 день
1 неделя
1 месяц
Навсегда
Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
Начало
Наши сайты
Галерея
Весельчак У
Наша Вики
Хранилище
Проекты
Правила
Правила форума
Правила русского языка
Помощь
Поиск
Календарь
Почта
Войти
Регистрация
Форум программистов «Весельчак У»
>
Программирование
>
Delphi
(Модератор:
x77
) > Тема:
Помогите новечку!
Страниц: [
1
]
Вниз
« предыдущая тема
следующая тема »
Печать
Автор
Тема: Помогите новечку! (Прочитано 6903 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Drush@
Гость
Помогите новечку!
«
:
18-12-2005 09:59 »
Помогите, такая ситуация:
В процедуре на нажатие кнопки для открытия нового окна пишу
прим.
Form2. showmodal;
Открывая это окно, главное окно проги становиться неоктивным, как сделать, чтобы можно было одновременно работать с обеими окнами. Спасибо!
Записан
zubr
Гость
Re: Помогите новечку!
«
Ответ #1 :
18-12-2005 10:18 »
Form2. show;
Записан
Drush@
Гость
Re: Помогите новечку!
«
Ответ #2 :
21-12-2005 17:22 »
Спасибо за ответ.
Но вот еще в тупик зашел:
Имеется процедура нажатия на кнопку:
...
fontdialog1.font:=richedit1.font;
if fontdialog1.execute then
richedit.setattributes.assign(fontdialog1.font);
...
При нажатии на кнопку появляется окно в котором можно изменять тип шрифта либо к выделенному в компоненте Richedit1, либо последующему печатаемому.
Вот вопрос:
Как сделать чтобы при нажатии на кнопку выделенному тексту или последующему печатаемому в Richedit1 присваивалось значение например "Жирный" и цвет "Красный"
Спасибо.
Записан
zubr
Гость
Re: Помогите новечку!
«
Ответ #3 :
21-12-2005 18:27 »
Цитата
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Style:=[fsBold];
RichEdit1.SelAttributes.Color:=clRed;
end;
Записан
Drush@
Гость
Re: Помогите новечку!
«
Ответ #4 :
21-12-2005 18:31 »
Спасибо большое очень помог!
Записан
Страниц: [
1
]
Вверх
Печать
« предыдущая тема
следующая тема »
Форум программистов «Весельчак У»
>
Программирование
>
Delphi
(Модератор:
x77
) > Тема:
Помогите новечку!
Загружается...