Discussion :

[PyRoFlo]

Salut,

drôle de constation...

Je dois afficher une fiche au dessus de toutes fenêtres dans le coin infèrieur droit de l'écran (comme les alertes de MSN Messenger).

FormStyle à fsStayOnTop de ma fiche principale et le tour est joué me diriez vous...

Dans ce cas il m'est impossible de déplacer cette fiche (dans le coin infèrieur droit de l'écran ou ailleurs), les changements ne sont pas pris en compte.
Je crois avoir tout essayé.

Voilà quand même le code.....

Code :

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

1
2
MaForm.Left := Screen.Width - MaForm.Width;
MaForm.Top := Screen.Height;

Et si vous avez une meilleure solution pour gérer ceci, je suis preneur

Merci !

[Thunder_nico]

ca ne risque pas de marcher remplace par ca :

Code :

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

1
2
form1.Left := Screen.DesktopWidth-form1.Width;
form1.Top := Screen.DesktopHeight-form1.Height;

[PyRoFlo]

J'ai quand même testé avant de poster

Mon code fonctionne parfaitement sur toutes les fiches exceptées la principale !

Je viens de tester le tien, marche pas non plus.

Merci quand même.

[gord's]

étonnant !
à quel moment essayes-tu de positionner ta fiche ainsi ?

[PyRoFlo]

Soit directement dans le DPR, soit dans le OnCreate, soit dans le OnShow...

Autrement dit partout

Est-ce que chez vous cela fonctionne sur une fiche princiaple de type fsStayOnTop ?

[gord's]

oui, j'ai ça pour une fenetre fsStayOnTop:

Code :

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

1
2
3
4
5
6
procedure TfrmVisu.DoRepositionne;
begin
    Top := 0;                // place pour icones menu d'une fenetre maximisée
    Left := Screen.Width - Width - 50;
    BoundWindow(self);
end;

BoundWindow étant une proc qui assure que la fenetre est totalement visible, en prenant en compte le workspace (ie : écran moins barre des taches)

doRepositionne est appelé dans le create, et depuis une fenetre utilitaire (sur click d'un bouton, pour la ramener dans l'écran apres un déplacement qui l'aurait masquée).

[PyRoFlo]

Ok.

J'ai quand même retenté mais...

Rhalala me demande ce qui cloche !

Je précise, au cas où ça servirait, que cette fiche (bien qu'elle soit la principale) n'est pas la première que l'on voit en lançant l'application.

Voilà mon DPR :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  Application.Initialize;
 
  Application.ShowMainForm := false;
  Application.CreateForm(TForm4, Form4);
 
  Application.CreateForm(TForm2, Form2);
 
  Application.CreateForm(TForm1, Form1);
  Form1.Show;
 
  //Application.CreateForm(TAboutBox, AboutBox);
 
  Application.Run;

Je viens d'essayer ceci :

Code :

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

1
2
3
4
[...]
  Application.CreateForm(TForm4, Form4);
  Application.ShowMainForm := false;
[...]

Sans résultat.

[gord's]

Je seche !
essayes de le prendre en debug, en rentrant en pas à pas dans la vcl à l'endroit où tu essayes le repositionnement.
J'ai deja résolu des pbs bizarres comme ça.

[PyRoFlo]

Rien à faire je ne trouve rien d'anormal.

Je pense que c'est du au fait que cette fiche est la principale de l'application car pour les autres cela fonctionne très bien.

: : :

[gord's]

je suis allé faire un tour rapide dans TControl, il y un test sur l'eventuel changement de taille, qui est appelé systématiquement même pour un simple resize. TControl.CheckNewSize.

mets un point d'arret dedans, pour voir. Peut etre une interaction avec autoSize ?

PS : je suis en D5

[PyRoFlo]

Exécuté sans problème apparemment

AutoSize est à false.

Je crois avoir trouvé...

Puisque cette fiche ne doit jamais être visible hormis pendant une alerte (comme dans MSN Messenger), j'avais mis sa propriété visible à false, et dans le DPR je falsais l'affichage de la fiche principale.

Je viens de passer à true sa propriété visible et maintenant ça fonctionne

Je comprends vraiment pas.

Enfin, problème "résolu".

Si quelqu'un a quand même une explication...

Merci !