Discussion :

[PCBleu]

Bonjour

j'utilise la séquence suivant pour forcer l'application delphi au premier plan
ShowWindow(Application.Handle, SW_SHOWNOACTIVATE);
SetForegroundWindow(Application.Handle);

ça marche comme attendu dans la majorité des cas, excepté pour certains pc où l'application est bien activée mais ne prend pas le premier plan
dans la barre des tâches l'icône de l'application clignote plusieurs fois mais ce n'est pas le résultat escompté...
j'aimerai en trouver la raison, ou alors une suite de commandes qui permette ce fonctionnement dans tous les cas

Merci d'avance

[Paul TOTH]

c'est un problème Windows

voici ce que j'utilise

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
 
// https://www.codeproject.com/Tips/76427/How-to-bring-window-to-top-with-SetForegroundWindo.aspx
procedure SetForegroundWindowInteral(hWnd: THandle);
var
  State: TKeyboardState;
begin
  if GetKeyboardState(State) then
  begin
    if (State[VK_MENU] and $80) = 0 then
      keybd_event(VK_MENU, 0, KEYEVENTF_EXTENDEDKEY, 0);
  end;
  SetForegroundWindow(hWnd);
  if GetKeyboardState(State) then
  begin
    if (State[VK_MENU] and $80) = 0 then
      keybd_event(VK_MENU, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
  end;
end;

[anapurna]

salut

moi j'utilise cette combinaison

Code :

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

1
2
3
4
 
 
  SetForegroundWindow(self.handle);
  BringWindowToTop(self.handle)

[PCBleu]

Merci à vous 2

désolé pour la solution d'anapurna, cela donne la même situation sur certains pc - mais je ne sais vraiment pas pourquoi

la solution de Paul TOTH est tout à fait ok, cela fonctionne parfaitement - Merci Beaucoup

Bonne continuation