Форум: "KOL";
Текущий архив: 2014.03.16;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "KOL";
Текущий архив: 2014.03.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.002 c