Discussion :

[jddev]

Comment inhiber la combinaison de touche CTRL+TAB dans une application MDI sous Delphi 6,7...

En effet, j'ai une application Delphi qui ouvre plusieurs fenetres mais certaines sont cachées (fermées mais chargées). Or, lorsque l'on utilise CTRL+TAB il est possible de passer d'une fenêtre chargée à l'autre et cela me gène !
Y-a-t-il une soultion ?

Merci d'avance.
JD

[mico2]

Tu peux intercepter cette combinaison de touches en mettant KeyPreview de la fiche à True puis en contrôlant les touches enfoncées

Code :

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

1
2
3
4
5
6
7
 
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If (ssCtrl in Shift) And (Key=9) then Key:=0;
end;

[jddev]

Effectivement c'est la première chose que j'ai fait.
mais ça ne marche pas.... dans l'aide en ligne il est spécifié que lorsque KeyPreview est à TRUE les touches de direction et la touche TAB ne sont pas filtrées !
Merci quand même....

Y aurait-il une autre solution ?

JD

[eponette]

Si l'anglais ne te rebute pas,voici peut-être une solution...

http://www.swissdelphicenter.ch/torr...ode.php?id=591

[mico2]

Contrairement à ce qui est écrit dans l'aide, la touche Tab peut être détectée par KeyPreview, mais seulement dans les applications SDI.
Par contre en MDI la fiche principale n'intercepte plus aucune touche alors que les fiches enfant peuvent intercepter la plupart des touches, y compris les touches de direction, mais pas la touche Tab.

Désolé pour la réponse précédente, je n'avais fait le teste qu'en SDI.

[jddev]

Merci EPONETTE pour ce lien mais la solution n'est pas adaptée.
Après plusieurs tests, j'arrive au même point que la solution avec KeyPreview : CTRL+TAB passe toujours sans être détecté par les fenêtres MDI parent ou enfant !

Je commence à désespérer de trouver une solution

Merci de m'indiqué d'autres pistes si vous en avez....

JD

[lapec_and_cie]

Salut jddev,

Essaie peut-etre ca je ne sais pas :

Code :

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

1
2
3
var n:integer; 
 
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @n, 0);

[lapec_and_cie]

Sinon essaye celà pour forcer la fiche MDI enfant à rester invisible:

Code :

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

1
2
 if Assigned(ChildForm) then
    ShowWindow(ChildForm.Handle, SW_HIDE);

Je ne sais pas si ca peut marcher, mais tu peux essayer...

[lapec_and_cie]

Sinon essaye celà pour forcer la fiche MDI enfant à rester invisible:

Code :

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

1
2
 if Assigned(ChildForm) then
    ShowWindow(ChildForm.Handle, SW_HIDE);

Je ne sais pas si ca peut marcher, mais tu peux essayer...