| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TAnimate->OnClick ? [Win95/98]
Blastoderm © (2003-01-22 14:45:00)Как прикрутить к TAnimate событие OnClick?
Пробовал создавать пустые объекты того-же
размера (TImage, TLabel), Но они ложаться
под TAnimate :( и клику не поддаются.
TStaticText вроде ложится сверху, но его
не удалось сделать прозрачным.
Жду помощи.
Blastoderm (2003-02-01 01:44:00) [1]Сенькс.
Завтра поробую.
Mihey (2003-01-29 21:32:00) [2]Зайди сюда, тут есть несколько компонентов, выбери Cool Controls:
http://src.fitkursk.ru/group.asp?id=41
Blastoderm (2003-01-29 16:59:00) [3]Если не трудно, кинь ссылку.
Уж очень не хочется копаться в TAnimate руками.
Mihey (2003-01-27 23:05:00) [4]Да уж, не работает, а какая идея была. Что тут можно посоветовать - модернизируй TAnimate. Он находится в Common Controls, образован от TWinControl, а как известно, TControl обладает жедаемым OnClick - тебе нужно восстановить это событие. Или же используй другие компоненты. Так я не припомню отдельных компонентов, но в таких, как Cool Controls или ABC точно есть разновидности TAnimate.
Blastoderm (2003-01-27 19:33:00) [5]Увы, но предложенный Михеем способ не работает :(
Событие не возникает при нажатии на TAnimate.
Срабатывает только на форме.
Вопрос остается открытым.
Mihey (2003-01-22 15:10:00) [6]Но это же не выход создавать пустые компоненты!
Ну есть уж совсем по-ламерски, то в обработчик нажатия на форме (OnMouseDown) пишешь:
If (X > Animate1.Left) and (X < Animate1.Left+Animate1.Width) and
(Y > Animate1.Top) and (Y < Animate1.Top+Animate1.Height) then
begin
Обработчик щелчка;
end;
| |
