Discussion :

[gegila]

Bonjour tout le monde

Je découvre un Pb Nouveau sur une opération que je fais courament. Lorsque je clique sur le 'X' pour fermer la fenêtre, jutilise la procedure ci dessous
et cela marche Normalement.

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
 
// *************************
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 
  if MessageDlg('Voulez_vous Vraiment quitter cette application ?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    DataModule2.FDConnection1.Connected := False;
    DataModule2.FDQueryCptDetails.Active := False;
    DataModule2.FDQueryMaitre.Active := False;
    Action := caFree; // sortie et libération de la mémoire
  end
  else
    Action := caNone; // ne pas sortir

or actuellement sur un nouveau programme, j'ai une erreur à la compilation

[dcc32 Erreur] Principale.pas(381): E2010 Types incompatibles : 'TCloseAction' et 'TAdvControlAlignment'

Dans mon unité j'utilise un AdvMemo de TMS ! dans lequel je ne fait qu'afficer des simples données formatées.

Merci d'avance si quelqu'un à une solution.

[Andnotor]

C'est dû à l'ordre des unités dans la clause uses. Soit tu la réordonnes en plaçant la(les) unité(s) TMS avant Forms, soit tu préfixes caNone avec le nom de l'unité Forms.caNone.

[gegila]

Comme cela sachant que c'est ma fiche principale ,

Code :

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

Action:=Form1.CaNone;

Si je fais cela :
[dcc32 Erreur] Principale.pas(382): E2003 Identificateur non déclaré : 'CaNone'

[blonde]

Comme cela sachant que c'est ma fiche principale ,

Code :

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

Action:=Form1.CaNone;

Si je fais cela :
[dcc32 Erreur] Principale.pas(382): E2003 Identificateur non déclaré : 'CaNone'

Tu as fait une erreur de copie c'est bien Forms.caNone que tu dois écrire
et pas Form1.caNone

si tu écris Form1.caNone : c'est que tu demandes une propriété de la form1 (qui est une instance d'une TForm)
si tu écris Forms.caNone : là tu demandes la déclaration du type caNone dans l'unité "Forms" (qui est donc une unité)

[gegila]

Bien sûr j'ai essayé

Code :

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

1
2
3
4
5
6
7
8
9
10
if MessageDlg('Voulez_vous Vraiment quitter cette application ?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    DataModule2.FDConnection1.Connected := False;
    DataModule2.FDQueryCptDetails.Active := False;
    DataModule2.FDQueryMaitre.Active := False;
    Action := caFree; // sortie et libération de la mémoire
  end
  else
  Action:=Forms.CaNone; // ne pas sortir

voici l'erreur

[dcc32 Erreur] Principale.pas(382): E2003 Identificateur non déclaré : 'Forms'

Voila ce que j'ai qui je pense me met le Souk, car dans ma première erreur j'avais cela

[dcc32 Erreur] Principale.pas(381): E2010 Types incompatibles : 'TCloseAction' et 'TAdvControlAlignment'

Code :

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

1
2
3
4
5
 TAdvCustomDesignerForm = class(TForm);
 
  TAdvCustomControl = class;
 
  TAdvControlAlignment = (caNone, caTop, caBottom, caLeft, caRight, caClient);

[Andnotor]

Ça va aussi dépendre de l'espace de nommage. Si dans uses Forms est précédé de Vcl, tu dois utiliser le même : Vcl.Forms.CaNone.

[gegila]

Merci beaucoup

Ta solution marche;

Je vais me rapprocher de TMS pour leur soumettre le Pb

[ALWEBER]

Merci beaucoup

Ta solution marche;

Je vais me rapprocher de TMS pour leur soumettre le Pb

Ce n'est pas un problème. Juste deux variables qui ont le même nom. La solution passe aussi en prefixant la variable avec le nom de l'unité