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 21:25
Сообщение #2


Профи
****

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

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


...
private
procedure NEWButtonsClick(Sender: TObject);
...
procedure NEWButtonsClick(Sender: TObject);
begin
showmessage('СООБЩЕНИЕ')
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
t1 := TButton.Create(Application);
t1.Left:=100;
t1.Top:=100;
t1.Caption:='кнопка';
t1.Parent:=Form1;
t1.OnClick:=NEWButtonsClick();

end;
Как тут вызвать процедуру на нажатие созданной кнопки?

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

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


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

 



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