Discussion :

[flydan]

bonjour,

Voici ma question , très simple je l'avoue mais je suis plus que débutant :

Je veux ouvrir à partir de ma form1 une fenêtre de dialogue qui me permet d'indiquer 2 donnée (Nom + Nbre d'appareil) et lorsque que je valide par ok fermer cette fenêtre et créer dynamiquement un TpageControl avec autant d'onglet que j'ai de Nbre appareil. La création du tpagecontrol j'ai trouver mais je ne sais pas comment faire passer Nom et Nbre d'appareil à ma form1
cela fait 2 jours que je cherche sur la faq et forum mais je ne trouve pas.
si une bonne âme peut m'aider......

Merci

Dany

[Cpt Anderson]

Salut,

sur la form1:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button1Click(Sender: TObject);
var
 iNb : Integer ;
 sNom : String ;
begin
 MaForm2 := TForm2.Create(nil) ;
 TRY
  MaForm2.RecupNbNom(iNb, sNom) ;
  Showmessage(sNom) ;
  Showmessage(IntToStr(iNb)) ;
 FINALLY
  MaForm2.Free ;
 END ;
end;

Sur la Form2

Code :

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

1
2
3
4
5
Procedure TForm2.RecupNbNom(var iNb: integer; var sNom: string);
begin
 iNb  := 1 ;
 sNom := 'tartempion' ;
end ;

Dans le showmessage, tu auras tes valeurs. Inspire toi de ca.

[Clorish]

ya plus propre comme methode :

Form2 :

Code :

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

1
2
3
4
5
6
7
8
 
Type
  TForm2 = Class(TForm)
  Private
    FMaProperty : String;
  Public
    Property MaProperty : String Read FMaProperty Write FMaProperty;
  End;

Et pour la form1 :

Code :

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

1
2
3
4
5
6
 
Procedure TForm1.ShowDialog;
Begin
Form2.MaProperty := 'UneValeur'; // Initialisation du parametre
Form2.ShowModal;  // Affichage de la form
Resultat := Form2.MaProperty;  // Recuperation et traitement

Au sein de TForm2, on manipule directement la variable privee FMaProperty sans se soucier de qui ou comment on viendra la recuperer.

Ce code s'inspire de la classe TOpenDialog and Co :

Code :

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

1
2
3
4
5
6
7
8
 
{  PArametrage  }
OpenDialog.InitialDir := 'c:\toto';
OpenDialog.Filter := 'Fichier Textes|*.txt';
{  Execution  }
If not OpenDialogue.Execute Then Exit;
{  Manipulation du resultat  }
Machin.LoadFromFile(OpenDialog.Filename);

Apres tu peux jouer sur toutes sortes de parametres : Integer, Boolean, String, Objets, et meme des tableaux

[flydan]

Merci à tous les deux.

La solution de clorish fonctionne à merveille

à bientôt