| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Obj и IsForm
Dy1 © (2009-08-15 19:02:00)как узнать кто sender?
procedure TForm1.PopMenuPopup(Sender: PObj);
Jon (2009-08-15 23:05:00) [1]
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;
Dy1 (2009-08-15 20:53:00) [2]PControl(Sender).IsForm всегда даёт форму (или наоборот?)
Дмитрий К (2009-08-15 20:06:00) [3]PControl(Sender).IsForm
Демьян (2009-08-15 19:06:00) [4]Можно пользоваться полем Tag
| |
