Simple dialogue animé

Version imprimable

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.Button1Click(Sender: TObject);
var
  Src,Dest:TRect;
begin
   with CreateMessageDialog('Message', mtWarning, [mbYes, mbNo]) do
   try
      with Button1 do
      begin
       Src.TopLeft     := ClientToScreen(Point(0, 0));
       Src.BottomRight := ClientToScreen(Point(Width, Height));
      end;
      Dest.TopLeft     := ClientToScreen(Point(0, 0));
      Dest.BottomRight := ClientToScreen(Point(Width, Height));
      DrawAnimatedRects(Handle, IDANI_CAPTION, Src, Dest);
      if ShowModal()=mrOk then
      begin
         //Si OK
      end;
      DrawAnimatedRects(Handle, IDANI_CAPTION, Dest, Src);
   finally
     Free();
   end;
end;

27/09/2009, 13h57
Just-Soft

Salut;

belle astuce surtout pour les messages d'avertissement ou de signalisation.
27/09/2009, 16h59
Droïde Système7

:salut:

Question bête : qu'est-ce qui s'anime :question:

Car sous Vista c'est nada :oops:
28/09/2009, 08h27
Lung

Citation:

Envoyé par Droïde Système7

:salut:

Question bête : qu'est-ce qui s'anime :question:

Car sous Vista c'est nada :oops:

La boîte de dialogue semble jaillir du bouton.

;)

Citation:

Envoyé par Just-Soft

belle astuce surtout pour les messages d'avertissement ou de signalisation.

+1 :ccool:
28/09/2009, 11h04
Droïde Système7

Lung, merci à tes yeux sous XP, de m'avoir renseigné :ccool:

Je suis toujours stupéfait que des développeurs, qui par définition, distribuent (directement ou indirectement) des programme vers des utilisateurs ; ne reçoivent jamais de messages incompréhensibles issus de certains users.

Ces derniers possédants Vista... :P

@+ :D
28/09/2009, 13h34
Montor

vous aviez pas remarqué qu'il y a un bug

Code:

if ShowModal()=mrOk then

CreateMessageDialog ne utilise pas mrOk mais ID_YES
28/09/2009, 14h39
Droïde Système7

Je suis frustré de ne pouvoir admirer cet effet sous Vista !

Possible d'adapter ce code à Vista ?

@+

je rejoins montor pour dire que :

Code:

1
2
3
4
if ShowModal()=mrOk then
      begin
         //Si OK
      end;

devrait plutot etre

Code:

1
2
3
4
5
6
case ShowModal of
  ID_YES : begin // action sur Yes 
  end;
  ID_NO : begin // action sur No
  end;
end;

29/09/2009, 13h23
Cl@udius

Citation:

Envoyé par Montor

vous aviez pas remarqué qu'il y a un bug

Code:

if ShowModal()=mrOk then

CreateMessageDialog ne utilise pas mrOk mais ID_YES

ShowModal renvoyant un TModalResult, l'utilisation de mrOK est dans l'absolu correcte. Si ce n'est que le dialogue a été créé avec les boutons Yes/No. :aie:

Donc un simple:

Code:

if ShowModal = mrYes then

sera parfait.