Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c