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

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

← →
Dy1   (2009-08-15 19:02) [0]

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

---

← →
Демьян   (2009-08-15 19:06) [1]

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

---

← →
Дмитрий К ©   (2009-08-15 20:06) [2]

PControl(Sender).IsForm

---

← →
Dy1   (2009-08-15 20:53) [3]

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

---

← →
Jon ©   (2009-08-15 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;


---

Страницы: 1 вся ветка

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



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