Bonjour à tous

Je souhaite un composant avec certaines variables initialisées lors de la création:

Voici le code du composant:

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
 
unit Fob;
 
interface
 
uses
  Classes,  SysUtils, math, StdCtrls, Dateutils, Controls;
 
type TF1=class(Tobject)
    private
        VCommunication:string;
     protected
        constructor create;
    public
       Property Communication: string read VCommunication write VCommunication;
    end;
 
implementation
 
constructor TF1.create;
begin
    vCommunication:='Bonjour le monde !'
end;
 
end.

Le programme qui appelle:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
var F1:TF1;
begin
    F1:=TF1.create;
    showmessage(F1.Communication);
    f1.free;
end;

Le résultat du showmessage est simplement un message vide

Est-ce qu'il y a moyen d'initialiser une variable lors du create ou lors de la déclaration de l'objet, si oui comment? Sinon pourquoi?


P.S. : Excusez le dédoublement de message