Главная страница
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.013 c
1-50294
asusfi
2003-06-03 11:25
2003.06.16
Динамический массив, запись, файл


3-50201
Инна
2003-05-21 02:00
2003.06.16
Базы данных и инет


3-50252
Gamar
2003-05-26 21:20
2003.06.16
Автоинкремент и паковка dBase


3-50251
Sharik_212
2003-05-26 22:15
2003.06.16
Помогите по DbGrid


7-50539
Wassily
2003-04-13 16:44
2003.06.16
программно установить картинку на рабочем столе.