кто вызвал появление popupmenu

← →
redlord (2006-10-25 20:44) [0]

всем привет.
имеется масив из компонентов Tpanel ,
все эти панели имеют общий Tpopupmenu
как узнать в обработчике (клик по итему в popupmenu) какая из панелей
вызвала на свет божий выше упомянутое меню

ниже приведен пример

type Titem= class
plain:tpanel;
name:string;
status:string;
socket:integer;
end;

type Tuser = record
item:array of Titem;
count:integer;
end;

var
user:Tuser;

procedure Tform1.adduser(data:string);
begin
......
user.item[n].plain.PopupMenu:=usermeny;(Tpopupmeny)
...
end;

procedure TForm1.N1111Click(Sender: TObject);
begin
здесь нужно узнать значение хранящеееся в переменной name
того итема в состав которого входит панель которая вызвала
появление меню
end;

← →
Ketmar © (2006-10-25 21:01) [1]

TPopupMenu.PopupComponent?

← →
Gero © (2006-10-25 21:12) [2]

> кто вызвал появление popupmenu

Это не я!

← →
Leonid Troyanovsky © (2006-10-25 21:14) [3]

> Gero © (25.10.06 21:12) [2]
> > кто вызвал появление popupmenu
>
> Это не я!

Докажи.

--
Regards, LVT.

← →
Gero © (2006-10-25 21:16) [4]

> [3] Leonid Troyanovsky © (25.10.06 21:14)

У нас презумпция невиновности.

← →
Leonid Troyanovsky © (2006-10-25 21:25) [5]

> Gero © (25.10.06 21:16) [4]

> У нас презумпция невиновности.

Да, да. Конечно.

Кто шляпку спер, тот и тетку пришил.

--
Regards, LVT.

← →
redlord (2006-10-26 11:41) [6]

← →
Ketmar © (2006-10-26 13:56) [7]

>[6] redlord 26-Oct-2006, 11:41
>:(
что, ниасилил справку почитать? даже [1] прочесть не смог? метла -- в магазине хозтоваров.

← →
Gero © (2006-10-26 14:13) [8]

> [7] Ketmar © (26.10.06 13:56)

Там даже справку читать не надо, все интуитивно понятно.

← →
Ketmar © (2006-10-26 14:28) [9]

>[8] Gero(c) 26-Oct-2006, 14:13
>Там даже справку читать не надо
не говори так! могут ведь поверить...

← →
redlord (2006-10-26 19:16) [10]

ketmar сори не заметил 1 пост )))))

>[10] redlord 26-Oct-2006, 19:16
>ketmar сори не заметил 1 пост )))))
на будущее: если в ветке пошёл тотальный стёб, то это значит, что ответ на вопрос уже был дан. дальше можно развлекаться.
%-)

← →
redlord (2006-10-26 19:35) [12]

n:=((((sender as tmenuitem).GetParentComponent) as tpopupmenu).PopupComponent).tag ;

где в tag лежит номер итема

ketmar sps

>[12] redlord 26-Oct-2006, 19:35
уф. код страшненький, но рабочий. и "as" применено, за что отдельная похвала. %-)

>ketmar sps
not at all.

> и "as" применено, за что отдельная похвала

а чем оно лучше прямого приведения?

>[14] MetalFan(c) 26-Oct-2006, 19:47
>а чем оно лучше прямого приведения?
дополнительный контроль за ошибками. времени исполнения забирает минимум, а пользы может принести много. в частности, в отлове "фантомных" ошибок.
так же, как и ASSERT(), кстати.

кто вызвал появление popupmenu Найти похожие ветки