Текущий архив: 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.016 c
