Discussion :

[Bruno13]

Bonjour,

je cherche à reproduire le même affichage que lorsqu'un de mes contact se
connecte sur MSN, vous savez la petite fenetre qui monte en bas à droite et puis quelques secondes ensuite disparait à moins de
cliquer dessus.

j'ai fait un truc :
Dans ma form principal j'ai :

Code :

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

1
2
3
4
5
6
7
8
....
      with TAlerte.Create(Self) do
      try
         Show;
      finally
        Free;
      end;
....

et dans la petite fenetre qui doit apparaitre dans le OnShow j'ai :

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
procedure  TAlerte.FormShow(Sender: TObject);
begin
   Left:=Screen.WorkAreaWidth-Width;
  Top:=Screen.WorkAreaHeight+Height;
   while Top<>Screen.WorkAreaHeight-Height do
  Begin
     Top:=Top-1;
    sleep(10);
  End;
 
   TimerAlert.Enabled:=True;
end;
 
procedure TAlerte.Timer1Timer(Sender:  TObject);
begin
  while Top<>Screen.WorkAreaHeight+Height do
   Begin
    Top:=Top+1;
    sleep(10);
  End;
   close;
end;

Mais hélas cela ne fonctionne pas, mon appli n'affiche pas la deuxieme form
???
mon TimerAlert est reglé à 10000ms donc je devrait au moins la voir non ?

Avez vous une solution un peu plus pro svp ?

Merci à tous de votre aide.

Bruno

[Rayek]

Tu fais un Show qui n'est pas blocant donc ca passe direct sur le free
Essai avec ShowModal

[Bruno13]

oui, je m'en suis aperçu maintenant.
Par contre une chose, j'ai bien l'affichage de la boite d'alerte mais uniquement lorsque celle-ci à fini de se positionner.

une idée de mon erreur ?
Est-ce bien dans le onShow que je dois mettre l'affichage de celle-ci qui monte ?

Bruno

[Rayek]

Code :

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

1
2
3
4
5
6
7
8
....
      with TAlerte.Create(Self) do
      try
         Show;
      finally
        Free;
      end;
....

et dans la petite fenetre qui doit apparaitre dans le OnShow j'ai :

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
procedure  TAlerte.FormShow(Sender: TObject);
begin
   Left:=Screen.WorkAreaWidth-Width;
  Top:=Screen.WorkAreaHeight+Height;
   while Top<>Screen.WorkAreaHeight-Height do
  Begin
     Top:=Top-1;
     Application.processMessages;
    sleep(10);
  End;

   TimerAlert.Enabled:=True;
end;

procedure TAlerte.Timer1Timer(Sender:  TObject);
begin
  while Top<>Screen.WorkAreaHeight+Height do
   Begin
    Top:=Top+1;
    Application.processMessages;
    sleep(10);
  End;
   close;
end;

Voir en rouge dans le code

[Bruno13]

Hélas, ma fenêtre popup arrive toujours d'un seul coup, cela n'a rien changé :'(

une autre idée ?

En tout cas merci pour ton aide précieuse.

Bruno

[Pascal Jankowski]

C'est normal qu'elle apparaisse d'un seul coup puisque tu utilises l'événement onshow. Il faut savoir que c'est uniquement à la fin du onshow que la propriété visible de la fiche prend la valeur true.

Je te conseille donc d'utiliser également l'événement onActivate par exemple de la façon suivante :

Code :

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

1
2
3
4
5
procedure  TAlerte.FormShow(Sender: TObject);
begin
  Left:=Screen.WorkAreaWidth-Width;
  Top:=Screen.WorkAreaHeight+Height;
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TAlerte.FormActivate(Sender: TObject);
begin
  while Top<>Screen.WorkAreaHeight-Height do
  Begin
     Top:=Top-1;
     Application.processMessages;
     sleep(10);
  End;
  TimerAlert.Enabled:=True;
end;

[Pascal Jankowski]

Encore mieux je te donne une version correcte de la chose:

Donc lancer l'alerte par :

Code :

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

1
2
 with TAlerte.Create(Self)
    do show;

Puis dans l'unité Alerte

Place un timer sur la fiche Alerte

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
27
28
29
30
procedure TAlerte.FormCreate(Sender: TObject);
begin
  Left:=Screen.WorkAreaWidth-Width;
  Top:=Screen.WorkAreaHeight+Height;
  Timer1.Interval := 10000;
  Timer1.Enabled := False;
end;
 
procedure TAlerte.FormActivate(Sender: TObject);
begin
  while Top<>Screen.WorkAreaHeight-Height 
    do Top:=Top-1;
  timer1.Enabled := true;
end;
 
procedure TAlerte.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  try
    while Top<>Screen.WorkAreaHeight+Height
      do Top:=Top+1;
  finally
    Action := CaFree;
  end;
end;
 
procedure TAlerte.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := false;
  close;
end;

Une petite question en passant, quel version de delphi utilises-tu ?

Cordialement

[anapurna]

salut

si tu veut absolument un tform

dans le Formcreate

Code :

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

1
2
3
4
5
6
...
 FormStyle := fsStayOnTop;                               
 Left:=Screen.Width-ClientWidth;           
 SystemParametersInfo(SPI_GETWORKAREA,0,@Rect,0);// On récupère la hauteur de la barre des tâches
Top := Screen.Height - (Screen.Height - Rect.Bottom)-1;
ClientHeight := 1; // Le bas de la form restera confondu avec le haut : on ne verra qu'une ligne au début

@+ Phil

[Pascal Jankowski]

Si tu disposes de delphi 2005 tu peux gérer les propriétés alphablend de la fenêtre et donc de donner un effet identique au fenêtre surgissantes d'office 2003

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
27
28
29
30
31
32
33
34
35
36
37
procedure TAlerte.FormCreate(Sender: TObject);
begin
  Left:=Screen.WorkAreaWidth-width-50;
  Top:=Screen.WorkAreaHeight-height-50;
  AlphaBlend := true;
  AlphaBlendValue := 0;
  Timer1.Interval := 10000;
end;
 
procedure TAlerte.FormActivate(Sender: TObject);
begin
  while AlphaBlendValue < 200 do
  begin
    AlphaBlendValue := AlphaBlendValue + 1;
    application.ProcessMessages;
  end;
  timer1.Enabled := true;
end;
 
procedure TAlerte.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  try
    while AlphaBlendValue > 0 do
    begin
      AlphaBlendValue := AlphaBlendValue - 1;
      Application.ProcessMessages;
    end;
  finally
    Action := CaFree;
  end;
end;
 
procedure TAlerte.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := false;
  close;
end;

Cordialement

[anapurna]

salut

la fenettre de message est un tooltips

@+ Phil