Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

кто вызвал появление popupmenu [D7, XP]

redlord © (2006-10-25 20:44:00)
всем привет.
имеется масив из компонентов 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-26 19:51:00) [1]
>[14] MetalFan(c) 26-Oct-2006, 19:47
>а чем оно лучше прямого приведения?
дополнительный контроль за ошибками. времени исполнения забирает минимум, а пользы может принести много. в частности, в отлове "фантомных" ошибок.
так же, как и ASSERT(), кстати.

MetalFan (2006-10-26 19:47:00) [2]

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

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

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

>ketmar sps
not at all.

redlord (2006-10-26 19:35:00) [4]
n:=((((sender as tmenuitem).GetParentComponent) as tpopupmenu).PopupComponent).tag ;

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

ketmar sps

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

redlord (2006-10-26 19:16:00) [6]
ketmar сори не заметил 1 пост )))))

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

Gero (2006-10-26 14:13:00) [8]
> [7] Ketmar © (26.10.06 13:56)

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

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

redlord (2006-10-26 11:41:00) [10]
:(

Leonid Troyanovsky (2006-10-25 21:25:00) [11]

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

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

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

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

--
Regards, LVT.

Gero (2006-10-25 21:16:00) [12]
> [3] Leonid Troyanovsky © (25.10.06 21:14)

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

Leonid Troyanovsky (2006-10-25 21:14:00) [13]

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

Докажи.

--
Regards, LVT.

Gero (2006-10-25 21:12:00) [14]
> кто вызвал появление popupmenu

Это не я!

Ketmar (2006-10-25 21:01:00) [15]
TPopupMenu.PopupComponent?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »