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 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 20.05.2009 15:47
Сообщение #2


Гость






Цитата
А как добавить кнопку на панель инструментов?
Что такое для тебя "панель инструментов"? Какой-то определенный компонент? Ну, так делай его родителем кнопки...

Цитата
И что значит new_button.Parent:=Self?
Вот то самое и значит, форму считать родителем новой кнопки.
 К началу страницы 
+ Ответить 

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


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

 



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