Discussion :

[bassim]

Salut à tous les developpeurs ,
Voilà dans le OnExit d'un CheckBox j'ai le code suivant:

Code :

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

MaskEdit1.EditMask:=CreationMask

et le code de la fonction CreationMask est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Function CreationMask:String;{Dans la section implementation}
Var A:String;C:Boolean;
begin
    A:=';1; ';Result:='';
    C:=DlgAnalyse.Virgule.Checked;
    if  C then A:=',9'+A;
    Result:=DupeString('9',DlgAnalyse.ListeChiffre.ItemIndex +1);
    Result:=Result+A;
end;

Mais lors de l'evenement OnExit j'ai une erreur de violation d'accés ,
et aprés débogage j'ai conclu que l'instruction déclanchant l'erreur est :

C:=DlgAnalyse.Virgule.Checked;

Si quelqu'un a une idée ,elle sera la bienvenue.
(Delphi 7 Entre)
Merci!

[delphichem]

As-tu verifier que DlgAnalyse est créée?

[bassim]

DlgAnalyse c'est la fiche que j'affiche et contient le CheckBox (Virgule) en question.

Et l'erreur survient lors de l'evenement OnExit de Virgule.

[bassim]

ça y est , j'ai résolu le probleme ,
en fait j'avait crée la fiche de la façon suivante:

Code :

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

With TDlgAnalyse.create do

Du coup DlgAnalyse ne contenait pas la reference à la fiche crée.
A +