TAnimate->OnClick ?

← →
Blastoderm (2003-01-22 14:45) [0]

Как прикрутить к TAnimate событие OnClick?
Пробовал создавать пустые объекты того-же
размера (TImage, TLabel), Но они ложаться
под TAnimate :( и клику не поддаются.
TStaticText вроде ложится сверху, но его
не удалось сделать прозрачным.
Жду помощи.

← →
Mihey (2003-01-22 15:10) [1]

Но это же не выход создавать пустые компоненты!

Ну есть уж совсем по-ламерски, то в обработчик нажатия на форме (OnMouseDown) пишешь:

If (X > Animate1.Left) and (X < Animate1.Left+Animate1.Width) and
(Y > Animate1.Top) and (Y < Animate1.Top+Animate1.Height) then
begin
Обработчик щелчка;
end;

← →
Blastoderm (2003-01-27 19:33) [2]

Увы, но предложенный Михеем способ не работает :(
Событие не возникает при нажатии на TAnimate.
Срабатывает только на форме.
Вопрос остается открытым.

← →
Mihey (2003-01-27 23:05) [3]

Да уж, не работает, а какая идея была. Что тут можно посоветовать - модернизируй TAnimate. Он находится в Common Controls, образован от TWinControl, а как известно, TControl обладает жедаемым OnClick - тебе нужно восстановить это событие. Или же используй другие компоненты. Так я не припомню отдельных компонентов, но в таких, как Cool Controls или ABC точно есть разновидности TAnimate.

← →
Blastoderm (2003-01-29 16:59) [4]

Если не трудно, кинь ссылку.
Уж очень не хочется копаться в TAnimate руками.

← →
Mihey (2003-01-29 21:32) [5]

Зайди сюда, тут есть несколько компонентов, выбери Cool Controls:

http://src.fitkursk.ru/group.asp?id=41

← →
Blastoderm (2003-02-01 01:44) [6]

Сенькс.
Завтра поробую.

TAnimate->OnClick ? Найти похожие ветки