Форум: "Media";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];
Вниз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]Сенькс.
Завтра поробую.
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2003.05.12;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c