Discussion :

[mario9]

Bonjour a tous

Bonne Année 2015 santé et succès dans vos développement.

Ma question comment faire pour garder son application au premier plan dans Windows 7 ou Windows 8 sans perdre l'affichage
quand on travaille sur un autre programme.

ex: Avoir toujours une calculatrice au dessus d'un programme.

Merci

Mario

[Ph. B.]

Bonjour,

Ma question comment faire pour garder son application au premier plan dans Windows 7 ou Windows 8 sans perdre l'affichage
quand on travaille sur un autre programme.

ex: Avoir toujours une calculatrice au dessus d'un programme.

Initialisez la propriété FormStyle de la fiche de votre application avec la valeur fsStayOnTop. Ainsi la fenêtre restera au premier plan.
Cela dit, pour plusieurs applications (ou plusieurs instances d'une même application) disposant d'une fenêtre de ce type, la dernière activée est celle qui restera au 1° plan...

[mario9]

Merci de votre réponse

Mais dans Xe2 dans la propriété FormStyle de la fiche de l' application avec la valeur fsStayOnTop je ne trouve pas Formstyle

mais dans delphi 7 ca existe.

Si vous avez une idée pour XE2


Merci

Mario

[Charly910]

Bonjour Mario,

c'est curieux car cela existe encore dans XE7 :

FormStyle

tu l'as surement dans l'inspecteur de propriétés.

Sinon tu le mets dans ton code pour voir :

Code :

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

   Form1.FormStyle := fsStayOnTop ;

Mais attention : Il est déconseillé de modifier la valeur de la propriété FormStyle à l'exécution ... donc ça peut mettre le bazar !

A+

Charly

[mario9]

Merci Charly910

Je vais vérifier dans la propriété de ma form pour voir formstyle

Mais j'ai trouvé ce matin sur internet un vieux programme qui fonctionne très bien avec Windows 7

Il s'appelle DeskPins il a un traducteur en Français . C'a répond a mes besoins mais j'aurais aimé l'avoir intégré mon application
mais en attendant ca va faire.

Voici le lien

http://www.pcastuces.com/pratique/wi...tres/page1.htm


Merci Mario

[Ph. B.]

Mais dans Xe2 dans la propriété FormStyle de la fiche de l' application avec la valeur fsStayOnTop je ne trouve pas Formstyle

mais dans delphi 7 ca existe.

Si vous avez une idée pour XE2

Un problème de lunette ? car XE2 possède cette propriété...

Sinon avec quelques lignes de codes :

Code :

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

1
2
3
4
5
6
7
8
9
10
Uses
  WinApi.Shellapi;
//...
var
  Hdle: THandle;
//...
  ShellExecute(Handle, 'open', 'calc.exe', nil, nil, SW_SHOWNORMAL);
  Sleep(100);
  Hdle := FindWindow(nil, 'Calculatrice');
  SetWindowPos(Hdle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);

[mario9]

Merci Philipe

C'est justement cela que je cherchais je l'ai intégré dans mon application et tous fonctionne très bien.


Merci

Mario