Ouverture progressive de la fenetre appelee
Au cour de mes recherches je suis tombe sur ce lien
Et j'ai fait quelques testes l'effet est interressant on peut piloter l'aparition de la fenetre appelee
Code:
1
2
3
4
5
6
7
8
9
10
11
|
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String a = Edit1->Text;
Form1->Visible = false; // on efface pour visualiser ce qui se passe
Form2->Show();
Form2->Hide();
// Animation de la fenêtre
AnimateWindow(Form2->Handle, 1000, StrToInt(a));
Form1->Visible = true;
} |
Voici les valeurs testee et le sens de deplacement
N° sens de deplacement
0 rien
1 de Gauche a droite
2 de droite a gauche
3 de Gauche a droite //
4 de haut en bas
5 du coin haut gauche
6 du coin haut droit
7 du coin haut gauche
8 du bas vers le haut
9 du coin bas gauche
10 du coin bas droit
11 du coin bas gauche
12 du haut vers le bas
13 du coin haut gauche
14 du coin haut droit
15 du coin haut gauche
Je n'ai pas teste toutes les valeurs, si vous trouvez des valeurs supplementaires je laisse ce post ouvert
