Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.11;
Скачать: CL | DM;

Вниз

Как программно назначить событию OnClik для меню свою процедуру?   Найти похожие ветки 

 
Lexa   (2004-06-24 12:53) [0]

Мастеры помогите плиз!
Как программно назначить событию OnClik для меню свою процедуру?

procedure TForm1.Button1Click(Sender: TObject);
var Item1 : TMenuItem;
begin
Item1:=TMenuItem.Create(self);
Item1.Caption:="!!!";
PopupMenu.Items[0].Add(Item1);

PopupMenu.Items[0].Items[0].OnClick:=p;  //?????

end;

procedure p(Sender : TObject);
begin
Form1.Caption:="!!!!!!!!!!!!!!!!!!!!";
end;


 
Lexa   (2004-06-24 12:58) [1]

и подскажите плиз, как в эту процедуру p передать параметр, н-р номер Item"а на кторый щёлкнули.
Спасибо.


 
имя   (2004-06-24 13:02) [2]

Удалено модератором


 
KSergey ©   (2004-06-24 13:09) [3]

http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=342


 
evvcom ©   (2004-06-24 13:10) [4]

Причем употребление Form1 не нужно. Т.е.

procedure TForm1.p(Sender : TObject);
begin
 Caption:="!!!!!!!!!!!!!!!!!!!!";
end;


 
Lexa   (2004-06-24 13:24) [5]

Спасибо



Страницы: 1 вся ветка

Текущий архив: 2004.07.11;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.042 c
1-1088592098
plt
2004-06-30 14:41
2004.07.11
Выделение группы объектов


1-1088284734
DeScriptor
2004-06-27 01:18
2004.07.11
динамический массив в кач-ве параметра функции/процедуры


1-1088595033
Boroda Oleg
2004-06-30 15:30
2004.07.11
Как групировать несколько компонент, чтобы изменить одно свойство


1-1088554460
Alexey Leonchik
2004-06-30 04:14
2004.07.11
Список открытых окон в меню (MDI)


14-1087822292
RealRascal
2004-06-21 16:51
2004.07.11
Диалог с произвольными кнопками