Encore une question sur les TEdit

Comment faire mettre du texte à l'initialisation de  la Form dans un TEdit sans passer par TEXT dans l'inspecteur d'objet

Parce ce que j'ai créé une procédure d'initialisation de ma Form dans laquelle figure la commande suivante Edit.Text:='0'; pour le text soit '0' et j'ai enlevé le texte dans TEXT de l'inspecteur d'objet, et la quand je lance mon programme le TEdit reste vide.

Je sais pas si j'ai bien capté mais normalement si dans l'événement OnCreate de ta form tu mets Tedit.text:='0' il devrait pas y avoir de soucis.

Rions un peu en attendant la mort.

J'ai fait une procédure d'initialisation car j'en besoin plusieurs fois  et donc ça donne ça pour mes TEdit:
procedure TProg.Initialisation;
   begin 
      ...
      Edit.Text:='0';
      ...
   end;

procedure TProg.FormCreate(Sender: TObject);
   begin
      Initialisation;
      ...
   end;

Et ça ne marche pas à la création de la Form Lorsque j'utilise Initialisation dans une procédure d'un TButton la ça fonctionne. Je ne vois pas pourquoi ça ne fonctionne pas à l'ouverture du programme

Deux solutions à envisager :

Possibilité 1 :

type
  TProg = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    procedure Initialisation ;
  public
    { Déclarations publiques }
  end; 

var
  Prog1: TProg;

implementation

procedure TProg1.Initialisation; // Pas de sender transmis !!
begin
  with Prog1 do 
  begin
    Edit1.Text := '0'
    Edit2.Text := '0'
    // ...
  end ;
end ;



Possibilité 2 :

type
  TProg = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure Initialisation(Sender:TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Prog1: TProg;

implementation

procedure TProg.Initialisation(Sender:TObject);
begin
  Edit1.Text := '0' ;
  Edit2.Text := '0' ;
end ;

procedure TProg .FormCreate(Sender: TObject);
begin
  Initialisation(NIL);
end ;

Cordialement.

Euh... puis-je dire que je ne suis pas d'accord? Mes modestes connaissances ne me permettent sans doute pas de te contredire mais dans le 1er cas il n'y a pas besoin de faire with Prog1 puisque c'est une proc de prog1 appelée par prog1.
Mais bon...

Si bien au contraire il faut me contredire
tu as parfaitement raison !!
Cependant, étant donné que cela n'a pas l'air de fonctionner (bien que cela le devrait) avec le code de m_cyril1, j'ai préféré lui donner un code avec ceinture et bretelles  ne sachant pas le contenu de son unité...
Il suffit par exemple d'une declaration comme suit, pour que le With Prog1 do soit nécéssaire :

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

implementation

procedure TForm1.Button1Click(Sender: TObject);
var
  Edit1:Tedit;
begin
   // le Edit1 ici fait référence à la variable locale et non globale !!!
    Edit1.text := '0';
end;


Cordialement.
 

Moi j'ai fait comme suit  :
   procedure FermerClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure EffacerClick(Sender: TObject);
  private
    { Déclarations privées }
    procedure Initialisation;
  public
    { Déclarations publiques }
  end;

var
  Progr: TProgr;

implementation

{$R *.dfm}

Procedure TProgr.Initialisation;
  begin
    Edit1.Text:='0';
    Edit2.Text:='0';
  end;

procedure TProgr.FormCreate(Sender: TObject);
begin
  Initialisation;
end ;

procedure TProgr.EffacerClick(Sender: TObject);
begin
  Initialisation;
end;

procedure TProgr.FermerClick(Sender: TObject);
begin
  close;
end;

J'ai modifié avec la Possibilité 2 mais les TEdit à la création de la Form restent désespérement vide  , par contre quand on appui sur Effacer les '0' apparaisent .
Par le plus grand des hasard il n'y aurait pas une option à mettre à True ou False dans l'inspecteur d'objet des TEdit