Текущий архив: 2002.05.30;
Скачать: CL | DM;

Вниз

Вопрос   Найти похожие ветки 

← →
Cybermonk   (2002-05-20 10:59) [0]

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

---

← →
deleon ©   (2002-05-20 11:36) [1]

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

---

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

Текущий архив: 2002.05.30;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.022 c