Как да тече анимацията с бутон за стартиране на друг компонент анимация ръчно - пожар на маймуна

Как да тече анимацията с бутон за стартиране на друг компонент анимация ръчно - пожар на маймуна

В няколко форми на проекта: е основният (меню) + История (доста тежка) + други
Цел:
чрез натискане на бутона MENU, започва историята на създаването и през това време играе FloatAnimation да се върти индикатор (кръг с картина).
необходими за попълване на формуляра и да се спре и да се покаже анимация формата

Как се прави:
на основната форма е F: TForm; при създаване на форма: F: = нула; чрез натискане на бутон: 1) започва анимация 2) F: = TF_History.Create (нула); по време на проверка на създаване на форма (ако е създаден, спрете) процедура TF_Main.FloatAnimation1Process (Sender: TObject);
започвам
ако целеви (F) след това FloatAnimation1.Stop;
приключи;
под формата на стек показващ процедура TF_Main.FloatAnimation1Finish (Sender: TObject);
започвам
F.Show;
приключи;

Грешка: приложението се срива с грешка "стека преливане" на!
Послепис Аз не разбирам къде да се копае, и ако някой има по-добро решение, аз ще бъда твърде щастлив!)

Приятели, които се сблъскват с проблема, който е описан в поста
Искам да предложат своето решение (някой може да дойде по-удобно).
За да увеличите център е точно в центъра на обекта (в моя случай това TImage), трябва да зададете на имота след мащабиране Align = TAlignLayout.Center, а преди това трябва да го инсталирате в TAlignLayout.None.
Подобно на това:
Image1.Scale.X: = 1.3;
Image1.Scale.Y: = 1.3;
Image1.Align: = TAlignLayout.None;
Image1.Align: = TAlignLayout.Center;
В този случай, ефектът ще се увеличи от центъра на обекта. Ако премахнете линия "Image1.Align: = TAlignLayout.None;" - ще се увеличи от горния ляв ъгъл. По мое мнение неправилно поведение на платформа. Може би в бъдещите версии ще получите по-добро.
Embarcadero® Delphi 10.1 Берлин Актуализация 2 Версия 24.0.25048.9432

Как да тече анимацията с бутон за стартиране на друг компонент анимация ръчно - пожар на маймуна

Здравейте. По принцип имам с мъка в половината стилизиран WindowBorder, тя има три бутона (близки, минимизирате, максимизирате, съответно). За всеки от тези стилове се задава, когато Mouseover = True промяна на цвета, всичко работи добре, цветът се променя, когато задържите курсора на мишката и се връща в първоначалното си състояние, когато се движат мишката, за да друг обект. Но ако се движите мишката бързо от такъв бутон "Затваряне" отвъд формата, но не изгаря спусъка на курсора на мишката = FalseMouseOver и бутонът е в "активно" състояние да се върне на мишката и да е част от формата. Има ли решение на този проблем?
Благодаря предварително.

Всеки Добре дошли!
Изправени пред подобен проблем. При промяна на свойствата AniFrameRate един подразбиране обект TFloatAnimation в 60 до 10, или друга стойност, по-малка от 60, всички анимации на формата, а не само това, да започне да се забавя, тъй като ако този параметър се променя за всички анимации, докато не се върнете обратно. За повече от 60 всички нормални стойности. ))
Въпрос: Защо се случва това?

Как да тече анимацията с бутон за стартиране на друг компонент анимация ръчно - пожар на маймуна

Добър ден на всички. Как да се замени родител за аниматор и по този начин се използва аниматор за няколко обекта?
Опитвайки се да се прилага принципът, че под формата на няколко правоъгълници и аниматор. Когато кликнете върху даден правоъгълник, той започва да се променя координатите. Тук единици кода:
процедура TForm2.MoveRect (Rect: TRectangle); започнем // поиска от компанията майка за аниматор Rect.AddObject (AniMoveRect); // Анимация координира Y AniMoveRect.PropertyName правоъгълник: = 'Position.Y; AniMoveRect.Inverse: = False; AniMoveRect.StopValue: = 0; AniMoveRect.Start; приключи; процедура TForm2.RectangleClick (Sender: TObject); започне MoveRect (подателя като TRectangle); приключи; В резултат на това само един анимира правоъгълник - този, който кликне за първи път. Не мога да разбера какъв е проблемът.
Четох тази тема, но в нея, както аз го разбирам, става дума за едновременното използване на аниматор за два обекта.
AniRects.zip

Как да тече анимацията с бутон за стартиране на друг компонент анимация ръчно - пожар на маймуна

Как да тече анимацията с бутон за стартиране на друг компонент анимация ръчно - пожар на маймуна

Редактиране на стила, добавяйки към нея TImage компонент и собственост RotateAngle създаде FloatAnimation (анимация параметри на снимката). Но когато започнете каквато и анимация не е така. Защо? И все пак се постигне производителност елемент анимация стил?

Как да тече анимацията с бутон за стартиране на друг компонент анимация ръчно - пожар на маймуна

Добър ден! Желание zaanimirovat Lable така че параметър Scale.X линейно нараства. Необходимо е обаче, че центърът на компонента остана на мястото си. А Scale.X определяне на базовата точка приема в горния ляв ъгъл на етикета. Възможно ли е да се промени центъра на компонента за мащабиране? Аз имам този проблем вече решен чрез добавяне на анимация към лявата пристрастия, но този път ми се струва, тромава и не е оптимално.

Как да тече анимацията с бутон за стартиране на друг компонент анимация ръчно - пожар на маймуна

Аз дойдох с това как да се въвеждат анимация ефект го TabItem промените в TabControl. но има един въпрос - дали е възможно за два обекта да използват един TFloatAnimation? или продажба чрез TTimer?

Как мога да се приложи един прост ефект на извеждане на текста (TLabel), следвани от избледняване без проблеми?
например:
Хвърли в Знака за форма създам FloatAnimation имот непрозрачност Ние правим FloatAnimation StartValue = 1, StopValue = бутон 0 Хвърляне на формата и пишат OnClick: FloatAnimation1.Start;
Резултат: Когато натиснете бутона текста изчезва постепенно, а след приключване на анимацията на текста не се вижда. Ние правим FloatAnimation AutoReverse = вярно; Резултат: Когато текстът постепенно се преодолява бутони и след това постепенно се появява. В края на текста на анимация се вижда. Но, когато се натисне отново, всичко започва да се провали.

Въпрос: как да се оправя?

Сега потребителите на страница 0

Не са хора, които търсят в тази страница