IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Панель инструментов
Client
сообщение 20.05.2009 11:50
Сообщение #1


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


Привет!
Я хочу из всплывающего меню (на скрине) изменять размер шрифта в мемо.
procedure TForm1.PopupMenu1Change(Sender: TObject; Source: TMenuItem;
Rebuild: Boolean);
var
a:integer;
begin
a:=strtoint(Source.Caption);
memo1.Font.Size:=a;
end;
Выдает ошибку сразу при запуске. Как тут быть?


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Client
сообщение 20.05.2009 20:12
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 865
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  20  +


О_О буду знать, я думал что это "текущий объект"
СПАСИБО БОЛЬШОЕ VOLVO ЗА ПОМОЩЬ!

Сообщение отредактировано: Client - 20.05.2009 20:13
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 11.07.2025 1:55
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"