PHP DM Gate v0.9 » Obj и IsForm

Dy1 (15.08.09 19:02) [0]

как узнать кто sender?
procedure TForm1.PopMenuPopup(Sender: PObj);

<Цитата>
Демьян (15.08.09 19:06) [1]

Можно пользоваться полем Tag

<Цитата>
Дмитрий К © (15.08.09 20:06) [2]

PControl(Sender).IsForm

<Цитата>
Dy1 (15.08.09 20:53) [3]

PControl(Sender).IsForm всегда даёт форму (или наоборот?)

<Цитата>
Jon © (15.08.09 23:05) [4]

type
PSenderMenu = ^TSenderMenu;
TSenderMenu = object(TMenu)
end;

procedure TForm1.MainMenu1MenuItem(Sender: PMenu; Item: Integer);
var
SenderMenu: PSenderMenu;
begin
SenderMenu := @Sender^;
MsgOK(SenderMenu.FControl.Caption);
end;

<Цитата>