Discussion :

[nn2009]

bonjour,
voici mon problème, dans le Onactivate de ma forme je teste une condition, si ma condition est vérifiée j'exécute des instructions sinon je ferme ma forme mais après un ShowMessage.
voici le code :

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
 
{Instructions......}
with Adoquery1 do
begin
SQL.Clear;
SQL.Add('Select NumOrdonnance As NumOrd');
SQL.Add('From Ordonnance');
SQL.Add('Where CodePatient ='+IdPatient);
Active:=true;
end; 
if not (Adoquery1.IsEmpty) then
 begin
  TabReqVide:=true;
  Label9.Caption:=Label9.Caption+' '+ inttostr(ADOQuery1Numord.Value);
 end
else
 begin
  TabReqVide:=false;
  ShowMessage (' Acucune Ordonnance pour ce Patient ! ');
  close;

le problème c'est que ma forme ne se ferme pas après le showMessage !!!
ma forme est appelée depuis le menu principale avec un ShowModal.
merci d'avance.

[Linkin]

et avec un

Code :

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

 ModalResult := mrCancel;

?

[ShaiLeTroll]

Si c'est un ShowModal, il est déclaré en "virtual", il est donc tout à fait envisageable de redéfinir ShowModal avec override au lieu d'un OnActivate !

Code :

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

1
2
3
4
5
6
7
function TMaForm.ShowModal: Integer; // override;
begin
  if HaveOrdonnance(IdPatient) then 
   Result := inherited ShowModal();
  else
    Result := mrAbort;
end;

HaveOrdonnance est une fonction contenant ton code actuel du OnActivate, le Résultat de HaveOrdonnance sera not Query.IsEmpty

[nn2009]

merci Linkin mais ça marche pas avec

Code :

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

Modalresult:= mrCancel

[nn2009]

Merci ShaiLeTroll pour ta vite réponse mais c'est quoi le Override ?, ou doit je déclarer ma fonction ?
c'est un peut flou pour moi,
y a pas une méthode simple pour interrompre l'activation d'une forme dans son OnActivate !

[ShaiLeTroll]

virtual\override sont les mots clés pour désigner les méthodes redéfinissables\rédéfinies, c'est dans le cadre du polymorphisme, de l'héritage en POO, un peu difficile a expliquer ici : Méthodes virtuelles et dynamiques

A Lire XVI-C-4. Utilisation d'un constructeur et d'un destructeur, notions sur l'héritage
Cet article du Guide Pascal et Delphi, montre la première utilisation de override avec les destructeurs !

Faudrait tenter de Changer le ModalResult à la limite durant le OnShow mais ce n'est pas très propre !

Sinon, tu dois mettre dans la parte interface

Code :

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

function ShowModal: Integer; override;

ton code ressemblera à

Code :

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

1
2
3
4
5
6
7
type
  TMaForm = class(Form)
    ...
  public
    function ShowModal: Integer; override;
    ...
  end;

TMaForm étant ton type de fenêtre !

[Rayek]

Pour ma part je n'utiliserai pas le onActivate pour cela, car le OnActivate se déclenche à chaque fois que la fenêtre reprend le focus (donc réexécution du code).

Il serait peut être mieux de faire le test et de n'afficher la fenêtre que si le résultat est positif.

[BuzzLeclaire]

Salut,

Fais ton test avant ??? comme le propose @rayek se sera plus simple

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
26
27
// a mettre dans la form appelante
with Adoquery1 do
begin
SQL.Clear;
SQL.Add('Select NumOrdonnance As NumOrd');
SQL.Add('From Ordonnance');
SQL.Add('Where CodePatient ='+IdPatient);
Active:=true;
end; 
if not (Adoquery1.IsEmpty) then
 begin
  With TFormAppele.Create(Application) do
  Begin
    Try
      TabReqVide:=true;
      Label9.Caption:=Label9.Caption+' '+ inttostr(ADOQuery1Numord.Value);
      Showmodal;
    finally
      Release;
    end;
  end;
 end
else
 begin
  TabReqVide:=false;
  ShowMessage (' Acucune Ordonnance pour ce Patient ! ');
  close;

@+

[nn2009]

je pense que je ferai le test avant le showmodal de ma form
Merci les gars