Discussion :

[touhami]

Bonjour a tous,
pour ouvrire une fiche avec annimation j'utilise le code suivant dans l'evenement OnShow de ma fiche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Left := Screen.Width  div 2 - Width  div 2;
Top  := Screen.Height div 2 - Height div 2;
AnimateWindow(Handle, 250{Vitesse}, AW_CENTER);

S.V.P je cherche meme astuce mais cette fois ci dans la fermeture de ma fiche , c-a-d : Comment animer une fiche lors de ca Fermeture.
merci a tous et bon developpement.

[Lung]

S.V.P je cherche meme astuce mais cette fois ci dans la fermeture de ma fiche , c-a-d : Comment animer une fiche lors de ca Fermeture.
merci a tous et bon developpement.

Je sais pas si c'est possible, mais moi je bricolerais ça avec des régions.

[evarisnea]

salut touhami, voila un code qui marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormShow(Sender: TObject);
begin
  Left := Screen.Width  div 2 - Width  div 2;
  Top  := Screen.Height div 2 - Height div 2;
  AnimateWindow(Handle, 250{Vitesse}, AW_CENTER);
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  AnimateWindow(Handle, 250{Vitesse}, AW_CENTER or AW_HIDE);
end;
 
end.