Bonjour à tous,

Je me suis créé une petite form qui peut s'apparenter à un popupMenu.
J'aimerais que lorsque je la crée, elle se lance en s'aggrandissant... Comme si elle s'ouvrait.

J'ai fait ça, mais ca ne dessine pas les composant à l'interieur., ils ne s'affichent que quand la boucle est finie. :-(

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
procedure TfrmGammes.FormActivate(Sender: TObject);
var i: Integer;
begin
  i := 0;
  while i<163 do begin
    Self.Width := i;
    Sleep(50);
    i := i+5;
  end;
end;
De plus, il retourne dans la boucle lorsque je ferme la form. :-( :-( :-(

Avez vous une idée ?

Merci d'avance.