Forcer une application Delphi au premier plan

Version imprimable

25/05/2022, 14h39
PCBleu

Forcer une application Delphi au premier plan

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

c'est un problème Windows

voici ce que j'utilise

Code:

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;

salut

moi j'utilise cette combinaison
Code:

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

25/05/2022, 16h35
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