Discussion :

[hiboudin]

Bonjour,
Je voudrais initialiser la propriété Caption avant l'ouverture de la fiche.
Apparemment, la fiche ne sait pas effectuer cette opération dans le FormCreat.
J'ai essayé avec "Initialyzation" mais ça ne marche pas non plus.
Y-a - t-il une solution ?

[neodelphi2007]

exemple de code d'initialisation de la propriéte Caption:

Code :

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

1
2
3
4
5
 
 
FMMain:=TFMMain.Create(Application);
FMMain.Caption:='essai';
FMMain.Show;

[Andnotor]

Cela fonctionne depuis le OnCreate

Par contre, à ce moment là, la variable référençant la fiche n'est pas encore assignée. OnCreate est appelé depuis le constructor et la variable est le résultat du constructor !

Ainsi ceci générera une exception:

Code :

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

1
2
3
4
procedure TForm1.Create(Sender :TObject);
begin
  Form1.Caption := 'Titre';  //Form1 = nil => Exception
end;

Mais puisque l'appel est fait depuis un événement de l'objet courant, la variable peut être simplement omise. Ainsi, ceci fonctionne:

Code :

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

1
2
3
4
procedure TForm1.Create(Sender :TObject);
begin
  Caption := 'Titre';  //Agit sur Self, soit l'objet courant
end;

[peter27x]

Cela fonctionne depuis le OnCreate

Par contre, à ce moment là, la variable référençant la fiche n'est pas encore assignée. OnCreate est appelé depuis le constructor et la variable est le résultat du constructor !

Ainsi ceci générera une exception:

Code :

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

1
2
3
4
procedure TForm1.Create(Sender :TObject);
begin
  Form1.Caption := 'Titre';  //Form1 = nil => Exception
end;

Mais puisque l'appel est fait depuis un événement de l'objet courant, la variable peut être simplement omise. Ainsi, ceci fonctionne:

Code :

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

1
2
3
4
procedure TForm1.Create(Sender :TObject);
begin
  Caption := 'Titre';  //Agit sur Self, soit l'objet courant
end;

Excellent comme info !!

[hiboudin]

Bonjour,

Bravo Andnotor cela fonctionne parfaitement.