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;

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

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