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 ?

[Raylemon]

Oui, c'est la mainForm. Les autres fiches ne jouent pas, car je les crée dynamiquement.

[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

[neilbgr]

Malatar a raison, cela est censé fonctionné (et au temps pour moi... ).

De plus, dans le paquet HotKeyManager il y a l'exemple "TestHotkeys" qui fonctionne parfaitement avec comme code :

Code :

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

1
2
3
4
5
6
procedure TMainForm.HotKeyManager1HotKeyPressed(HotKey: Cardinal; Index: Word);
begin
  SetForegroundWindow(Application.Handle);
  MessageDlg('Hotkey ' + HotKeyToText(HotKey, LOCALIZED_KEYNAMES) + ' pressed.',
             mtInformation, [mbOk], 0);
end;

Dans ces cas là, la démarche consiste pas forcément d'aller sur les forums, mais plutot de faire une petite appli test a deux balles, et de tenter d'élucider le problème...

[Rayek]

Ou de mettre un point d'arrêt au niveau de l'appel de la hotkey pour voir si ca passe dedans

[Raylemon]

C'est bien évidemment ce que j'ai fait.
Mon appli test pose le même problème, et lors du debug, la fonction est bien appelée. Normal puisque la mainForm s'affiche . Il passe bien sur le setFocus du combobox, mais quand j'écris directement, le texte ne suis pas. ça fait presque une semaine que je cherche, après avoir essayé plusieurs solutions.

Bon, le problème n'est pas grave en soi, mais c'est embêtant.

[Rayek]

Apres le SetForeGroundwindow Rajoute

Code :

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

1
2
 
SetActiveWindow(Application.handle);

Puis fait son setfocus après.

[aityahia]

essaie un peut sa

Code :

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

1
2
3
4
5
var Hnd : Thandle;
begin
Hnd := FindWindow(Calssedelafenetre,nomdelafenetre);
if Hnd<> Null then
BringWindowToTop(Hnd);