TControl

← →
Checist [root] (2005-02-26 21:35) [0]

Есть некая функция:
procedure ShowControlMessage(const Msg: string; aControl: TControl);

Необходимо в aControl указать TrayIcon1, он не имеет ни Handle, Pos. Как быть?

← →
DiamondShark © (2005-02-26 21:50) [1]

Если он не наследник TControl, то никак не быть.

← →
Anatoly Podgoretsky © (2005-02-26 23:20) [2]

DiamondShark © (26.02.05 21:50) [1]
Указать можно, например приведение. Тем более, что никаких Handle, Pos не видать в объявлении.

← →
DiamondShark © (2005-02-27 00:29) [3]

Ну, можно и Integer к TControl привести.
Боюсь только, результат автора вопроса не шибко устроит.

← →
Anatoly Podgoretsky © (2005-02-27 00:33) [4]

А ты можешь дать ответ по такому вопросу, когда автор утаивает всю информацию, что то мне кажется что с телепатором и у тебя проблемы. Зато есть ненужная информация о Handle, Pos

← →
DiamondShark © (2005-02-27 00:37) [5]

Да, технология телепания очень молода, девайсы глючные.
И автор на ментальные запросы уточнить информацию не откликается...

← →
Checist [root] (2005-02-27 10:16) [6]

Извиняюсь, вышел из конференции до ваших ответов.
Помоему TrayIcon наследник контрола, но как явно указать его в aControl не знаю.
Есть функции типа FindControl, c Pos или Handle аргументом, но выцепить таковые у TrayIcona я не могу.
Помогите.

← →
Юрий Зотов © (2005-02-27 10:22) [7]

> Checist [root] (27.02.05 10:16) [6]

> Помоему TrayIcon наследник контрола

Может, лучше не гадать, а посмотреть? Если есть исходники, то в них, а если нет, то вызвать ClassParent.

← →
Anatoly Podgoretsky © (2005-02-27 10:30) [8]

Checist [root] (27.02.05 10:16) [6]
Если наследник, то прямо и указывать.

← →
Checist [root] (2005-02-27 10:36) [9]

Ошибка несоответствия типов TTrayIcon & TControl.

← →
Checist [root] (2005-02-27 10:39) [10]

Трудно разобраться чей он такой...
TLMDTrayIcon=class(TLMDWndProcComponent)

Имхо, никакому компоненту с таким именем - TrayIcon - нет смысла быть наследником TControl. А вообще-то интересный подход - спрашивать, как передать неизвестно какой компонент в неизвестно какую процедуру. Очень логично. Сразу чувствуется масштаб личности.

Checist [root] (27.02.05 10:39) [10]
Тогда не утверждай, что "TrayIcon наследник контрола"
Далее смотришь чей наследник TLMDWndProcComponent, или проверяешь программно, c использованием RTTI

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