Discussion :

[BuzzLeclaire]

Bonjour à toutes et à tous,

J'ai enfin trouvé d'où venai une erreur mais je ne sais pas la corriger.

Dans une form en showmodal je déclare cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TFFicheClient.FormCreate(Sender: TObject);
begin
//...
  Application.OnMessage := ApplicationMessage;
//...
end;
 
procedure TFFicheClient.ApplicationMessage(var msg: TMsg; var Handled: boolean);
begin
  if Msg.message = WM_KEYDOWN then
  begin
    if Msg.wParam = VK_TAB then
    begin
      if Msg.hwnd = DBEdit3.Handle then TabsheetCoordonnees.SetFocus;
    end;
  end;
end;

Sur chaque composant DBEDIT je gere la passage de zone en zone comme ceci
(toujours la même form)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TFFicheClient.DBEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ActiveControl is TCustomEdit) or (ActiveControl is TCustomComboBox) then
  Begin
    case Key of
      VK_DOWN, VK_NEXT, VK_RETURN, VK_TAB: SetFocusNextEdit;
      VK_UP, VK_PRIOR: SetFocusPreviousEdit;
    end;
  end;
end;
procedure TFFicheClient.SetFocusNextEdit;
begin
  repeat
    Perform(WM_NEXTDLGCTL, 0, 0);
  until (ActiveControl is TDBEdit) or (ActiveControl is TsCustomComboBox) ;
end;
 
procedure TFFicheClient.SetFocusPreviousEdit;
begin
  repeat
    Perform(WM_NEXTDLGCTL, -1, 0);
  until (ActiveControl is TDBEdit) or (ActiveControl is TsCustomComboBox);
end;

Tous ce passe trés bien dans cette form, je ferme cette form et j'en ouvre une autre qui ne comporte pas de OnMessage

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TFFicheEquipe.DBEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ActiveControl is TCustomEdit  then
  Begin
    case Key of
      VK_DOWN, VK_NEXT, VK_RETURN, VK_Tab: SetFocusNextEdit;
      VK_UP, VK_PRIOR: SetFocusPreviousEdit;
    end;
  end;
end;
 
procedure TFFicheEquipe.SetFocusNextEdit;
begin
  repeat
    Perform(WM_NEXTDLGCTL, 0, 0);
  until ActiveControl is TDBEdit;
end;
 
procedure TFFicheEquipe.SetFocusPreviousEdit;
begin
  repeat
    Perform(WM_NEXTDLGCTL, -1, 0);
  until ActiveControl is TDBEdit;
end;

Déclaration totalement classique.
Mais si j'utilise pa exemple la touche TAB pour passer d'une zone à l'autre BOOM un excpetion est levée :

Violation d'accès à l'adresse 004A5217 dans le module 'xxxxxxxx.exe'. Lecture de l'adresse 0000024C

Lorsque sur la première form au dessus je retire tout le systeme de OnMessage je n'ai aucune erreur !!!
Si j'utilise la deuxième form sans jamais utilisé la première aucun problème.
Mais dés que je rentre dans cette form Boom.

Avez-vous une idée du problème ?
Peux-t-on stopper un Onmessage ? où isolé celui-ci sur une form ?

Merci

[seabs]

Bonjour,

J'ai très bien compris ton problème, je ne sais pas si mes explications seront claires, mais je vais essayer.

procedure TFFicheClient.FormCreate(Sender: TObject);
begin
//...
Application.OnMessage := ApplicationMessage;
//...
end;

Quand tu affectes ton message ci-dessus, il concerne ton application dans sa totalité.

Il faut donc, à la fermeture de ta fiche ShowModal, mettre Application.onMessage à nil.

Code :

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

1
2
3
4
5
procedure TForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := True
  Application.OnMessage := nil;
end;

J'ai eu le même souci que toi, il y a quelques jours pour une application ayant une série de fiches fonctionnant en simultanées. Donc, je m'y suis collé pour trouver la cause. Après cette correction, je n'ai plus aucun souci

@+

[BuzzLeclaire]

Après pas mal de recherche j'ai vue qu'il fallait placer un

Handled := True;

Mais cela ne change rien...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TFFicheClient.ApplicationMessage(var msg: TMsg; var Handled: boolean);
begin
  if Msg.message = WM_KEYDOWN then
  begin
    if Msg.wParam = VK_TAB then
    begin
      if Msg.hwnd = DBEdit3.Handle then TabsheetCoordonnees.SetFocus;
      Handled := True;
    end;
  end;
end;

Cela ne change rien même si je le met dans le if then

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TFFicheClient.ApplicationMessage(var msg: TMsg; var Handled: boolean);
begin
  if Msg.message = WM_KEYDOWN then
  begin
    if Msg.wParam = VK_TAB then
    begin
      if Msg.hwnd = DBEdit3.Handle then 
      begin
        TabsheetCoordonnees.SetFocus;
        Handled := True;
      end;
    end;
  end;
end;

[BuzzLeclaire]

Bonjour,

Code :

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

1
2
3
4
5
procedure TForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := True
  Application.OnMessage := nil;
end;

@+

Parfait, cela corrige mon problème.
Je l'ai placé dans mon OnClose car le Mon OnCloseQuery s'execute avant.

Merci à toi.