Re-Bonjour à tous,

me revoilà pour mon probleme de fenetre popup. J'ai choisi le code suivant pour l'affichage de ma fenetre :
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
procedure TAlerte.Timer1Timer(Sender: TObject);
begin
  while Top<>Screen.WorkAreaHeight+Height do
   Begin
    Top:=Top+1;
    Application.processMessages;
  End;
  close;
end;
 
procedure TAlerte.FormShow(Sender: TObject);
begin
  Left:=Screen.WorkAreaWidth-Width-5;
  Top:=Screen.WorkAreaHeight+Height;
  PlaySound('notify.wav', handle, SND_ASYNC);
end;
 
procedure TAlerte.FormActivate(Sender: TObject);
begin
  while Top<>Screen.WorkAreaHeight-Height do
  Begin
     Top:=Top-1;
     Application.processMessages;
  End;
  Timer1.Enabled:=True;
end;
j'ai ajouté un AlphaBlend, et aussi un petit son d'avertissement mais voilà ma fenetre n'est pas entierement dessinée, son cadre est noir.
J'ai essayé un repaint et un refresh mais hélas rien à faire. Il reste noir même lorsque le timer fait redescendre celle-ci.

Quelqu'un peut-il me conseiller sur ce que je dois faire ?


Merci à tous,
Bruno