Discussion :

[Raylemon]

Bonjour, j'ai un petit problème à vous soumettre.
J'ai développé une application qui tourne la plupart de temps en arrière-plan. En théorie, via une touche de raccourci, j'affiche le programme (avec Visible :=true), et je place le focus sur un composant de la fiche principale (un combobox).

Le problème, c'est que quand j'affiche l'application, je ne peux pas écrire directement dans le combo. Je dois d'abord cliquer sur la fiche, pour que le set Focus soit opérationnel.

Existe-t-il une solution pour activer la fiche dès qu'elle est visible ? J'ai essayé avec BringToFront, mais ça ne change rien.

Merci d'avance,

[tatareau]

Showmodal peut être...

[Raylemon]

je viens d'essayer, mais malheureusement ça ne marche pas.

[neilbgr]

Ca répond à la question ceci ?

Code :

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

1
2
3
4
5
6
  with Application do
    begin
      BringToFront;
      if MainForm.CanFocus then
       SetFocus;
    end;

[Raylemon]

Je viens d'essayer ton bout de code, mais hélas ! ça ne marche pas non plus

[neilbgr]

LA fiche dont tu parles, c'est la MainForm ?

[neilbgr]

...via une touche de raccourci...

Quel genre de raccourci ?
Ca pourrait nous aider de savoir comment l'application est soit-disant au courant qu'il faut qu'elle s'affiche.

Eventuellement, un peu de code ne ferait pas de mal...

[Raylemon]

Chez moi, j'utilise win+espace. Chez mon co-programmeur, il utilise F1.
J'utilise un composant spécifique qui gère ce type de raccourcis. (composant THotKeyManager, disponible sur Torry)

[Rayek]

normalent avec le code suivant cela devrait fonctionner :

Code :

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

1
2
 
SetForegroundWindow(Application.Handle);

[neilbgr]

Pas certain car :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TApplication.BringToFront;
var
  TopWindow: HWnd;
begin
  if Handle <> 0 then
  begin
    TopWindow := GetLastActivePopup(Handle);
    if (TopWindow <> 0) and (TopWindow <> Handle) and
      IsWindowVisible(TopWindow) and IsWindowEnabled(TopWindow) then
      SetForegroundWindow(TopWindow);
  end;
end;

Et plus haut il y a eut la proposition de Application.BringToFront...

Quoi que... a tester c'est sur !

[Raylemon]

Non, j'ai essayé, le résultat est le même

[Rayek]

Code :

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

1
2
 
TopWindow := GetLastActivePopup(Handle);

Ca me choque un peu ca, est ce que les 3 conditions (voir aide) seront bien validé pour que ca fasse remonter la fenetre devant ?

Alors qu'avec un SetForeGroundWindow directement on est sûr de faire appel a cette fonction.

Faut que je retrouve le prog de prise en main d'appli que j'avais fait pour regarder mon code