m_cyril1
Messages postés59Date d'inscriptionmercredi 30 mars 2005StatutMembreDernière intervention 3 juin 2005
-
10 mai 2005 à 15:17
WhiteHippo
Messages postés1154Date d'inscriptionsamedi 14 août 2004StatutMembreDernière intervention 5 avril 2012
-
11 mai 2005 à 17:41
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.
WhiteHippo
Messages postés1154Date d'inscriptionsamedi 14 août 2004StatutMembreDernière intervention 5 avril 20123 11 mai 2005 à 17:41
On recommence à zéro :
Reprends une nouvelle application
Sur ta fiche tu rajoutes 2 TEdit.
Dans la section private, tu ajoutes ta procedure initialisation puis son code
Tu ajoutes un evenement OnCreate
Tu appelles la procedure initialisation dans le OnCreate.
m_cyril1
Messages postés59Date d'inscriptionmercredi 30 mars 2005StatutMembreDernière intervention 3 juin 2005 10 mai 2005 à 17:42
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
Niki2001
Messages postés85Date d'inscriptionsamedi 6 novembre 2004StatutMembreDernière intervention17 décembre 20051 10 mai 2005 à 20:08
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...
WhiteHippo
Messages postés1154Date d'inscriptionsamedi 14 août 2004StatutMembreDernière intervention 5 avril 20123 10 mai 2005 à 21:08
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 :
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;
m_cyril1
Messages postés59Date d'inscriptionmercredi 30 mars 2005StatutMembreDernière intervention 3 juin 2005 11 mai 2005 à 08:37
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