Developpez.com - Delphi
X

Choisissez d'abord la catégorieensuite la rubrique :

Nono40.developpez.com
Le petit coin du web de Nono40
SOURCES TESTS DELPHI WIN32 AUTOMATISMES DELPHI .NET QUICK-REPORT
Retour à l'accueil
59 - ANIMATEWINDOW

PRÉSENTATION : Fonction AnimateWindow
ZIP : Téléchargez le zip APERÇUS :

NOTES : Présentation de la fonction API d'affichage d'une fenêtre avec animation.

Cette fonction n'est disponible qu'avec Windows 98 ou supérieur ou Windows 2000 ou supérieur
De plus l'animation AW_BLEND ne fonctionne pas avec Windows 98 ou Windows Me

CODE :
Unit Unit1;
//
// Sujet : AnimateWindow  
//
// Par Nono40 : http://nono40.developpez.com   http://nono40.fr.st
//              mailTo:nono40@fr.st
//
// Le 13/07/2003
//

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

Type
  TForm1 = Class(TForm)
    rgType: TRadioGroup;
    rgHor: TRadioGroup;
    rgVer: TRadioGroup;
    BitBtn1: TBitBtn;
    Procedure BitBtn1Click(Sender: TObject);
    Procedure rgTypeClick(Sender: TObject);
  Private
    { Déclarations privées }
  Public
    { Déclarations publiques }
  End;

Var
  Form1: TForm1;

Implementation

Uses Unit2;

{$R *.dfm}

Procedure TForm1.BitBtn1Click(Sender: TObject);
Var Code:DWord;
Begin
  Code:=0;
  // Détermination du type principal d'animation
  Case rgType.ItemIndex Of
    0:Code := 0;
    1:Code := AW_SLIDE;
    2:Code := AW_CENTER;
    3:Code := AW_BLEND;
  End;
  // Détermination des sens ( ignoré pour AW_CENTER et AW_BLEND )
  Case rgHor.ItemIndex Of
    0:Code := Code Or AW_HOR_POSITIVE;
    1:;
    2:Code := Code Or AW_HOR_NEGATIVE;
  End;
  Case rgVer.ItemIndex Of
    0:Code := Code Or AW_VER_POSITIVE;
    1:;
    2:Code := Code Or AW_VER_NEGATIVE;
  End;

  // La fenêtre ne doit pas être visible
  Form2.Hide;

  // Animation de la fenêtre
  AnimateWindow(Form2.Handle,1000,Code);

  // Affichage de la fenêtre ( Delphi ne tient pas compte de l'affichage précédent)
  Form2.Show;
End;

Procedure TForm1.rgTypeClick(Sender: TObject);
Begin
  rgHor.Enabled := rgType.ItemIndex <=1;
  rgVer.Enabled := rgType.ItemIndex <=1;
End;

end.

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2003 Bruno Guérangé. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents, images, etc. sans l'autorisation expresse de l'auteur. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.

Responsables bénévoles de la rubrique Delphi : Gilles Vasseur - Alcatîz -