Discussion :

[Montor]

Simple dialogue animé

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
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;

[Just-Soft]

Salut;

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

[Droïde Système7]

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

Car sous Vista c'est nada

[Lung]

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

Car sous Vista c'est nada

La boîte de dialogue semble jaillir du bouton.

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

+1

[Droïde Système7]

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

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...

@+

[Montor]

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

Code :

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

 if ShowModal()=mrOk then

CreateMessageDialog ne utilise pas mrOk mais ID_YES