FMX.Forms.TCustomPopupForm.AniPosition
Delphi
property AniPosition: Single read FAniPosition;
C++
__property float AniPosition = {read=FAniPosition};
Propriétés
Type | Visibilité | Source | Unité | Parent |
---|---|---|---|---|
property | public | FMX.Forms.pas FMX.Forms.hpp |
FMX.Forms | TCustomPopupForm |
Description
N'a pas de définition physique prédéfinie. Vous pouvez utiliser AniPosition dans un gestionnaire d'événement OnAniTimer.
La valeur AniPosition change entre 0
et 1
.
Etant donné que AniPosition n'a pas d'interprétation physique prédéfinie, vous pouvez implémenter votre propre interprétation physique de AniPosition dans votre gestionnaire d'événement OnAniTimer. Par exemple, vous pouvez interpréter AniPosition dans les paramètres de largeur et de hauteur de la propriété Size de la fiche popup ou en tant que transparence de fiche. Par exemple, vous pouvez écrire :
...
procedure TForm1.AniTimerProc(Sender: TObject);
begin
if Sender is TCustomPopupForm then
begin
// TCustomPopupForm(Sender).ContentControl.Opacity := TCustomPopupForm(Sender).AniPosition;
TCustomPopupForm(Sender).Size := TSize.Create(Round(200 * TCustomPopupForm(Sender).AniPosition), 100);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
R: TRectangle;
begin
R := TRectangle.Create(Self);
F := TCustomPopupForm.Create(Self);
F.AniDuration := 0.5;
F.ContentControl := R;
F.OnAniTimer := AniTimerProc;
F.PlacementTarget := Button1;
F.Show;
end;
...