| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Вопрос [D4, Win95/98]

Cybermonk ©   (2002-05-20 10:59:00) 

Как сравнивать ((Sender as TMenuItem).GetParentComponent as TPopupMenu).PopupComponent - он типа TComponent и TSpeedButton?
Leshyя пытаюсь реализовать твой алгоритм.

---

deleon   (2002-05-20 11:36:00) [1]

var
C: TComponent;
begin
C := ((Sender as TMenuItem).GetParentComponent as TPopupMenu).PopupComponent;
if( C is TComponent )and( C is TSpeedButton )then;
end;
//хотя достаточно сравнить с TSpeedButton

---

Наверх