 |
|
 |
|
 |
59 - ANIMATEWINDOW
|
|
|
|
PRÉSENTATION :
Fonction AnimateWindow
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 oeuvre intellectuelle protégée par les droits d'auteurs. 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'à 3 ans de prison et jusqu'à 300 000 E
de dommages et intérêts.
Cette page est déposée à la
SACD.
|
