Discussion :

[BuzzLeclaire]

Bonjour à tous et à toutes

Un truc vachement étrange.

Si je créer une form dynamiquement de cette manière en imposant un caption dans sa création, dans l'évenement oncreate de cette form (ou ailleur) le self.caption ou form1.Caption est vide, pourtant il s'affiche bien entitre de fenêtre !!!

Code :

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

1
2
3
4
5
6
// ...
      With TForm2.Create(Self) do
      Begin
        Caption := 'Table : ' + Nom; // Caption de la form
      end;
// ...

Code :

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

1
2
3
4
5
6
procedure TForm2.FormCreate(Sender: TObject);
begin
  showmessage(TForm2.caption); // c'est vide !!!
  showmessage(Self.Caption); // n'est pas vide !!!
end;
END.

J'aimerais savoir juste pourquoi ?

[ShaiLeTroll]

Version de Delphi ?
Car Caption comme propriété de classe d'une TForm, je ne connaissais pas !

Pour le FormCreate, Caption contient le contenu défini dans la DFM !
Utilise CreateNew pour créer la fenêtre SANS lire la DFM !