DÉPLACER LE FOCUS D'UN TEDIT À L'AUTRE EN IGNORANT LES AUTRES COMPOSANTS

Commentaire de Delphiprog le 06/11/2004 14:19:09 administrateur CS

Pas mal. Mais si on veut alléger ton code on peut aussi écrire et prendre en compte la touche Shift :

procedure TForm1.SetFocusNextEdit(GoForward: boolean = True);
begin
  repeat
    Perform(WM_NEXTDLGCTL, Ord(GoForward) - 1, 0);
  until ActiveControl is TCustomEdit;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_DOWN, VK_NEXT : SetFocusNextEdit;
    VK_RETURN:
      {Par défaut, la touche Shift inverse le parcours
      des contrôles pour les touches Enter et TAB}
      if ssShift in Shift then
        SetFocusNextEdit(False)
      else
        SetFocusNextEdit;

    VK_UP, VK_PRIOR: SetFocusNextEdit(False);
  end;
end;

Je propose une autre alternative basée sur les principes suivants :
- mettre la propriété KeyPreview de la fiche à True
- mettre le code qui suit dans le gestionnaire d'évènement OnKeyPress de la fiche :
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
  WinControl: TWinControl;
begin
  if Key = #13 then
    repeat
      WinControl := FindNextControl(ActiveControl, True, True, False);
      if WinControl is TCustomEdit then
      begin
        WinControl.SetFocus;
        Key := #0;
        Break;
      end
      else
        ActiveControl := WinControl;
    until WinControl = nil;
end;
Et c'est tout !
Donc pas besoin d'assigner d'évènement OnKeyPress à chaque TEdit. Ben voui, s'il y en a beaucoup sur une fiche, ça devient vite fastidieux et le risque d'oubli augmente en proportion.

Je pense que vous ferez sans difficultés l'adaptation si vous souhaitez adapter ce code à l'évènement OnKeyDown de la fiche.

Encore Bravo Japee.

Commentaire de JulioDelphi le 06/11/2004 17:46:49 administrateur CS

wow je vois de bons codes là depuis qqs jours :)

celui ci me plait aussi :D mais euh ... en fait, la finalité de ce code est de passer Edit en Edit en evitant les autres compo .. ok ...

N'est-il pas plus simple de mettre le TabStop à False sur les autres compos et de bien regler l'odre de tabulation des autres edit ?
ou alors j'ai pas tout capicce ...

Commentaire de japee le 06/11/2004 18:27:45 administrateur CS

Au fait, à mon avis :

- mon code et le premier de Delphiprog sont plus adaptés si l'on ne désire appliquer l'effet qu'à certains Edits de la fiche, mais pas à tous;

- le 2ème code de Delphiprog est plus adapté dans le cas où l'on veut l'appliquer à tous les Edits de la fiche.

- la solution de JulioDelphi n'est pas dépourvue d'intérêt non plus.

Je vais ajouter une version allégée tenant compte des remarques de Delphiprog, tout en restant dans l'esprit de mon code d'origine.

Commentaire de grandvizir le 07/11/2004 12:41:26

Je confirme que le KeyPreview de Delphiprog est bien meilleur. En effet, la centralisation des OnKey[Event] sur un composant TEdit est un énorme surgénérateur d'octets. C'est pareil avec d'autres composants...

DelphiProg a encore raison cette fois. On n'a pas le droit de modifier TabStop sans scrupules. Cette propriété est très importante. Déjà, c'est l'un des 4 critères de focusabilité. Le truc caché: JulioDelphi tend à parasiter le fonctionnement des tabulations. Jouons: mettons 3 composants fenêtrés (donc focusables) dont le N°2 pris en sandwich avec sa propriété TabStop=false. Si on est sur le CompoN°1 et qu'on fait Tab, on passe sur CompoN°3. Le second a été oublié. Alors, on met true, on met false... on ne touche à rien plutôt.

En fait, pour bien voir l'utilité de TabStop, il suffit de se référer au développement des TRadioCheckBox. J'ai bossé dessus: ouhlala ! Faut pas oublier une ligne de code parce que pour remettre à jour l'ordre dans les TabStop... ... (je met doubles suspensions). A ne pas confondre avec TabOrder ! A la base, l'idée est bonne, mais techniquement... plouf! Il peut toujours essayer de démontrer le contraire: ça sera intéressant pour tout le monde.

Commentaire de MAURICIO le 08/11/2004 11:28:29

Voici un probleme archi connu pour delphi:
remplacer la touche Tab par la touhe Enter dans les forms:

Il suffit d' utiliser la fonction suivante dans votre OnKeyPress de votre form (Form.keypreview doit être à true):

procedure NavegarComEnter(Na_Form: TForm; Var Tecla: Char);
var TWC  : TWinControl;
    Cont : Boolean;
begin
  If Tecla = #13    // *** Tecla Enter *** //
  Then Begin
    Try
      TWC := Nil;
      TWC := Na_Form.ActiveControl As TWinControl;
    Except

    End;

    If TWC <> Nil
    Then Begin
      If TWC Is TDBLookupComboBox
      Then Cont := Not ((TWC As TDBLookupCombobox).ListVisible)
      Else Cont := True;
    End
    Else
      Cont := False;

    If Cont
    Then
      If Not (TWC Is TDBMemo) And Not (TWC Is TMemo) And Not (TWC Is TDBRichEdit) And Not (TWC Is TDBGrid)
      Then Begin
        Na_Form.Perform( WM_NEXTDLGCTL, 0, 0 );
        Tecla := #0;
      End;
  End;
end;

Ok, on va me dire que le code peut etre optimisé, mais il a au moins 6 ans et depuis, je ne l' ai pas changé ...

Commentaire de grandvizir le 10/11/2004 18:24:19

[Japee] Je ne demande pas de foudre de untel sur l'autretel. On a compris qu'il y a la méthode de X, de Y et de Z. C'est tout. Je raisonnais juste en terme d'octet pour un gain SIGNIFICATIF de place. Il n'y a pas que des "pros" sur ce site, et il convient donc de montrer les subtilités qui ne sont a priori pas connues de tous. C'est tout... Sinon, faut pas trop jouer sur les mots.

Je ne suis pas faché :)) La preuve !

Commentaire de Delphiprog le 10/11/2004 20:19:13 administrateur CS

GrandVizir et Mauricio : regardez mon code et vous verrez que j'ai utilisé le test :

if WinControl is TCustomEdit then...

parce que TdBEdit, TEdit, TMaskEdit, TMemo, TDbMemo, TDbLookupCombo, etc descendent tous de TCustomEdit et qu'il devient de ce fait inutile de tester chaque composant.
Il faut aussi savoir utiliser les relations dhéritage.

Mauricio : ActiveControl est du type TWinControl. D'ailleurs, tous les contrôles visuels déposés sur une fiche descendent de TWinControl (attention : sous Delphi mais pas sous Kylix).
Tu peux donc "alléger" ton code de la manière suivante :
procedure NavegarComEnter(Form: TForm; var Key: Char);
var
  TWC: TWinControl;
  Cont: Boolean;
begin
  if Key = #13 then
  begin
    Cont := True;
    TWC := Form.ActiveControl;

    if TWC is TDBLookupComboBox then
      Cont := not ((TWC as TDBLookupCombobox).ListVisible);

    if Cont and not ((TWC is TDBMemo)
        or (TWC is TMemo)
        or(TWC is TDBRichEdit)
        or (TWC is TDBGrid)) then
      begin
        Form.Perform(WM_NEXTDLGCTL, 0, 0);
        Key := #0;
      end;
  end;
end;

Commentaire de MAURICIO le 11/11/2004 14:58:00

Ha grandvizir, si tu fais seulement:
if key=#13 then key:=#9
tu vas avoir quelques problemes avec certains composants (le memos par exemple).
Bem ouai, si tu veux aller à la ligne dans un Memo, bem tu peux pas, c pour ça que je regarde quel est le control qui a le focus.
De plus, il faut mettre:
if TWC is TDBLookupComboBox then
      Cont := not ((TWC as TDBLookupCombobox).ListVisible);

Enfin, merci à Delphiprog pour l' optimisation de mon code ... C' est vraiment un grand Monsieur ce DelphiProg. Pour peu, je l' appelerai DelphiPro, ça lui va mieux!!!

Commentaire de grandvizir le 12/11/2004 19:15:55

Je cite: «Bem ouai, si tu veux aller à la ligne dans un Memo, bem tu peux pas». Sauf si tu paramètres WantsTabs et WantsReturn correctement.

Commentaire de grandvizir le 20/11/2004 19:22:58

En tout cas, dans OnKeyPressed, ça marche !... euh... Ah ouais, je viens de voir le truc... En fait, tellement l'évènement OnKeyPressed me paraissait évident que j'ai mis OnKeyDown. C'est logique ! ?? Mais qui sait, je me trompe encore.