Discussion :

[boufano]

bonjour,
j ai une form newpiece creeer en mode conception

je veux creer une instance de cette fenetre appeller newfacture comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
procedure TForm1.newfacture1Click(Sender: TObject);
var
newfacture:Tnewpiece;
begin
Application.CreateForm(Tnewpiece, newfacture);
newfacture.caption:='Nouvelle Facture';
newfacture.typepiece:='Facture';
newfacture.show;
end;

et dans Tnewpiece j ai

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
public 
   typepiece:string;
  end;
var
  newpiece: Tnewpiece;
 
implementation
{$R *.dfm}
procedure Tnewpiece.FormShow(Sender: TObject);
 
begin
showmessage(tyepiece);  // jai un message vide !!!! 
end;

apres un newfacture.show
pourquoi la variable typepiece n'est pas egal a 'Facture' ?

[Cl@udius]

Salut et bienvenue

Essaye en créant ta fiche plutôt de cette façon:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.newfacture1Click(Sender: TObject);
var
  newfacture:Tnewpiece;
begin
  newfacture := TNewFacture.Create(Application);
  newfacture.caption:='Nouvelle Facture';
  newfacture.typepiece:='Facture';
  newfacture.show;
end;

@+ Claudius

[boufano]

merci pour ta reponse Cl@udius

j ai pas une classe appellé Tnewfacture


j expose mon probleme autrment
j ai creer en mode conception une form newpiece :Tnewpiece
je veux utiliser cette form pour nouvelle facture ou un nouveau devis

le probleme commeent creer dynamiquement cette form et initier des propreité comme le caption et typepiece ?

pour le caption avec mon code ca marche mais pour la variable public
typepiece ca marche pas !!!

[ALWEBER]

Il suffit de mettre ton message dans la procédure associée à l'événement OnActivate da la fiche appelée

[Cl@udius]

j ai pas une classe appellé Tnewfacture

A oui effectivement !
Et ainsi:

Code :

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

1
2
 
newfacture := TNewPiece.Create(Application);

As-tu essayé ?

[boufano]

j ai mis mon message dans onactivate ca marche pas !
j ai creer avec newfacture := TNewPiece.Create(Application); pareil

j ai mis un Tbouton dans newpiece et dans l evenement onclick j ai mis mon message comme ceci :

Code :

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

1
2
3
4
5
 
procedure Tnewpiece.Button1Click(Sender: TObject);
begin
showmessage(typepiece);
end;

et la il m affiche correctement Typepiece
je comprend rien

la fenetre newpiece est de type mdichildren peut etre c est en rapport avec mon problem
merci

[vanquish]

Etonnant !

Essaie de supprimer ton newfacture.Show, pour voir si le show n'est pas automatiquement fait par le framework dès la création. Auquel cas le form est créé/activé, avant que tes lignes d'affectations ne soient exécutés.

Perso, je créé et montre mes mdiChild comme cela :

Code :

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

1
2
monMdiChild := TmonMdiChild.Create( monMdiParent ) ;
monMdiChild.Show

donc dans ton cas :

Code :

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

1
2
newpiece := TnewPiece.Create( Form1) ;
newpiece.show;

Cordialement

[boufano]

j ai changer Tnewpiece en une fiche normal : FormStyle:=fsnormal et ca marche.
je pense que dans la creation d'une fiche mdichildren on ne peut pas modifier les variables qu'apres que la fiche soit active et je ne comprends pas pourkoi c est ainsi

j ai trouver une solution a mon probleme en bidouillons un peu : reecrir le constructeur de Tnewpiece comme cela

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
 
 
 constructor Create(AOwner: TComponent;parametre:string);
  public
  typepiece:string;
  end;
var
  newpiece: Tnewpiece;
 
implementation
{$R *.dfm}
constructor Tnewpiece.Create(AOwner: TComponent;parametre:string);
begin
  inherited Create(AOwner);
self.typepiece:=parametre;
end;

et je creer mes fiche comme ceci :

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
 
procedure TForm1.newdevisClick(Sender: TObject);
var
newdevis:Tnewpiece;
begin
with Tnewpiece.Create(Application,'devis') do
begin
caption:='Nouveau Devis';
show;
end;
 end;
 
procedure TForm1.newfacture1Click(Sender: TObject);
var
newfacture:Tnewpiece;
begin
  newfacture := TnewPiece.Create( Form1,'facture') ;
  newfacture.caption:='Nouvelle Facture';
  newfacture.show;
end;

merci de votre patience bonne continuation