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

Вниз

procedure   Найти похожие ветки 

 
lameridze   (2003-05-31 20:28) [0]

Л.-Б.!!

вобсчем есть процедура для штук 20 подпунктов в mainmenu.

Если для каждого подпункта нуно ее повесить на событие OnClick, так нуно для каждого события писать что-то типа
..
Myprocedure(sender);
..
или мона чем-нибуль попроще заменить..


 
[NIKEL] ©   (2003-05-31 20:44) [1]

нет, lameridze, надо один раз написать в цикле
типа так
MyMenu->Items[i]->OnClick = Myprocedure;


 
Fenik ©   (2003-05-31 21:03) [2]

А вот так можно присвоить событие всем вложенным подменю:


procedure MenuClick(Sender: TObject);

...

procedure WP(Item: TMenuItem);
var j: Integer;
begin
if Item.Count > 0
then for j := 0 to Item.Count - 1 do WP(Item.Items[j]) //рекурсия
else if Item.Tag <> 0 then Item.OnClick := MenuClick;
end;


 
Fenik ©   (2003-05-31 21:28) [3]

строку:
else if Item.Tag <> 0 then Item.OnClick := MenuClick;
можно просто
else Item.OnClick := MenuClick;

это у меня из кода выдрано.



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

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

Наверх




Память: 0.47 MB
Время: 0.041 c
6-50428
Snuk
2003-04-11 16:51
2003.06.16
измерить скорость локальной сети


14-50433
Yanis
2003-05-29 11:25
2003.06.16
Прошу прощения за обращения. Требуется помощь.


9-50190
Yurchik
2003-01-03 17:18
2003.06.16
Шашки или шахматы


1-50348
Saracin
2003-06-03 18:47
2003.06.16
Опции dcc32


1-50376
stone
2003-06-04 10:41
2003.06.16
Выравнивание объектов