Discussion :

[FluidBlow]

Bonjour à tous et déjà merci d'avance pour essayer de maider

Je voudrais créer une fiche qui servirait de notification.Elle serait situer en bas à droite, et serais au dessus de toutes les applications et doit etre toujours visible.

Mon premier problème, la position.

J'utilisais un

Code :

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

Form1->Top = Screen->Height - 80;

mais le problème est que la fiche est situé 80 px au dessus du bas de l'écran et non pas de la barre des taches comme il serait logique. Du coup, si une personne à une barre des taches plus épaisse que celle par défaut, il ne vera pas la notification.

Le deuxieme problème est de la faire passer au dessus de toutes les autres fenetres sans leur prendre le focus et ainsi empecher de travail normalement malgrès la notification. Avant, j'utilisait :

Code :

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

1
2
SetForegroundWindow(FindWindow("Mon application",NULL));
        keybd_event(VK_RETURN,0,KEYEVENTF_KEYUP,0);

Combiner avec un TTimer à un interval de 1 milliseconde, le programme restait bien tout le temps au dessus des application, le problème est que nous ne pouvions plus donner le focus aux autres applications, il restait sur la fiche.

J'aimerais créer donc une notification du meme genre que Thunderbird ou Msn Messenger...

Merci de m'avoir lu
Bonne journée à tous,
FluidBlow.

[DjmSoftware]

bonjour,
tu peux créer ta fenêtre de notification en utilisant les paramètres suivants de ta form

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
 
object Form1: TForm1
  Left = 980
  Top = 840
  AlphaBlend = True
  AlphaBlendValue = 120
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  ClientHeight = 160
  ClientWidth = 295
  Color = 16776176
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 72
    Top = 40
    Width = 146
    Height = 16
    Caption = 'Ma fenêtre de notification'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsItalic]
    ParentFont = False
  end
end

le code ci-dessus a été généré a partir de ma Form (.dfm)
elle utilise les propriété de transparence (AlphaBlend) le niveau de transparence est réglé par la property AlphablendValue
la fenêtre s'affiche en dessus des autre par la property FormStyle réglée sur fsStayOnTop

il te suffit de placer ta form lors de sa conception a l'emplacement désiré.

pour afficher ta fenêtre il suffit de faire simplement un

Code :

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

1
2
 
Form1->Show();

ceci peut par exemple être effectué de puis un Timer ou a chaque fois qu'une notification est nécessaire

Cordialement

[BOUBOU81]

Applique ceci moi ca marche super bien.
tu fais ta fiche la taille que tu veux, puis tu pose 2 timer dessus
tu met la fiche en stayontop,
puis tu l'appele comme suit:

Code :

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

1
2
3
 
WNotifier = new TWNotifier(Application);
   WNotifier->Show();

voila le code de la fiche

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
void __fastcall TWNotifier::FormCreate(TObject *Sender)
{
RECT workArea;
SystemParametersInfo(SPI_GETWORKAREA, 0, &workArea, 0);
 
bottomMax = workArea.bottom;
topMax = workArea.bottom - Height;
 
Left = workArea.right - Width;
Top = workArea.bottom;
 
animationMode = 1;
AnimateOpenClose->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TWNotifier::FormClose(TObject *Sender,
      TCloseAction &Action)
{
 
Action = caFree;
 
}
//---------------------------------------------------------------------------
void __fastcall TWNotifier::AnimateOpenCloseTimer(TObject *Sender)
{
switch(animationMode){
 case 1: // apparaître
  if(Top > topMax){
 
   if(Top < topMax + (Height / 2)){
    Top = Top - 1;
   }else{
    Top = Top - 2;
   }
  }else{
   AnimateOpenClose->Enabled = false;
   WaitAndHide->Enabled = true;
  }
 break;
 case 2: // disparaître
  if(Top < bottomMax){
   Top = Top + 2;
  }else{
   AnimateOpenClose->Enabled = false;
   Close();
  }
 break;
}
}
//---------------------------------------------------------------------------
void __fastcall TWNotifier::WaitAndHideTimer(TObject *Sender)
{
WaitAndHide->Enabled = false;
animationMode = 2;
AnimateOpenClose->Enabled = true;
}
//---------------------------------------------------------------------------

voila si tu as un souci fais le savoir

[FluidBlow]

Bonjour

Tous d'abord, merci à vous deux pour vos réponse très rapide, je vais les essayer, l'une et l'autre, je vous tiens au courant

Encore merci
FluidBlow.

Applique ceci moi ca marche super bien.
tu fais ta fiche la taille que tu veux, puis tu pose 2 timer dessus
tu met la fiche en stayontop,
puis tu l'appele comme suit:

Code :

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

1
2
3
 
WNotifier = new TWNotifier(Application);
   WNotifier->Show();

voila le code de la fiche

Code :

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

1
2
3
4
5
6
7
 
void __fastcall TWNotifier::FormCreate(TObject *Sender)
{
etc...
AnimateOpenClose->Enabled = true;
}
//---------------------------------------------------------------------------

voila si tu as un souci fais le savoir

En fait, je ne comprend pas tout à fait comment et quand la déclaré avec "WNotifier = new TWNotifier(Application);
WNotifier->Show();" et ici lorsqu'il y a "fastcall TWNotifier::FormCreate" sa veut dire que TWNotifier est le nom de la fiche au lieu de Form1 ?

Désolé si je parait un peu stupide

Merci encore à vous deux
FluidBlow.

non je retire, j'ai compris

Merci énormément à vous deux, surtout DjmSoftware pour le placement au premier plan et BOUBOU81 pour le positionnement

Encore 1000 mercis,
Passez tout comme moi, une superbe après-midi.
FluidBlow