Discussion :

[Leesox]

Bonjour,
J'ai une fiche qui est créée de cette manière :

Code :

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

1
2
3
4
5
6
with TfrmListeDegustations.create(nil) do
    try
      ShowModal;
    finally
      release;
    end;

Son nom est "frmListeDegustations".

Sur cette fiche, j'ai un DBgrid sur lequel j'ai besoin d'exécuter une procédure quand on se déplace dans les lignes du dbgrid, aussi bien par la souris que par le clavier. (c'est très bien dit ici http://www.developpez.net/forums/vie...ht=intercepter

J'utilise donc l'évènement OnAfterScroll.

Code :

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

1
2
3
4
5
procedure TDM.qryDegustationsAfterScroll(DataSet: TDataSet);
begin
  if not Assigned(Application.FindComponent('frmListeDegustations')) then exit;
  frmListeDegustations.Invitesligneparligne;
end;

Le problème, c'est que l'application fait comme si "frmListeDegustations" n'existait pas, donc elle sort sur le exit et n'effectue pas ma procédure "Invitesligneparligne".

Pourquoi la fiche nommée "frmListeDegustations" n'est pas reconnue ?
Merci beaucoup.

[tourlourou]

Code :

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

1
2
3
4
5
6
7
with TfrmListeDegustations.create(nil) do 
    try 
[b]      Name := 'frmListeDegustations';[/b]
      ShowModal; 
    finally 
      release; 
    end;

[Leesox]

Code :

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

1
2
3
4
5
6
7
with TfrmListeDegustations.create(nil) do 
    try 
      Name := 'frmListeDegustations';
      ShowModal; 
    finally 
      release; 
    end;

Non plus. Cà ne le fait pas.
Je précise que la fiche a bien pour nom "frmListeDegustations"

[tourlourou]

Code :

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

1
2
3
4
5
6
7
8
procedure TDM.qryDegustationsAfterScroll(DataSet: TDataSet); 
var
 MaFiche : TComponent; 
begin 
  MaFiche := Application.FindComponent('frmListeDegustations');
  if Assigned(MaFiche)
    then with MaFiche as TfrmListeDegustations do Invitesligneparligne; 
end;

[Leesox]

Merci beaucoup de ton aide, mais elle n'est toujours pas assignée.
Il y a un truc qui me dépasse là
En débuggage, je passe bien la ligne assignation, mais çà sort toujours !

[tourlourou]

pê le pb vient-il du Create(nil) => pas de Owner, donc le FindComponent ne peut le rattacher à Application.
solution :

Code :

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

1
2
3
4
5
6
7
8
with TfrmListeDegustations.create(Application) do 
    try 
      Name := 'frmListeDegustations';
// ou Owner := Application;
      ShowModal; 
    finally 
      release; 
    end;

[Leesox]

Bingo, ç'est çà Merci à toi !

En mettant application dans le Owner, quand la fiche sera-t-elle libérée ?
Lors du release ou à la fermeture de l'application ?

[tourlourou]

au premier des 2

[Leesox]

Ok, merci. çà ne me pose plus de problème.