Modifier le FormCreate ?

**bds2006** · 27/06/2006, 09h57

Bonjour,

Je souhaite ajouter un paramètre à mon FormCreate mais je n'y arrive pas...

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure FormCreate(Sender: TObject;const Identifiant:string);
[...]
procedure TFInternet.FormCreate(Sender: TObject; const Identifiant:string);
begin
 
end;
[...]
Internet := TFInternet.Create
(nil,FPrincipale.ClientDataSetRecherche.FieldByName('Identifiant').AsString);

Savez-vous ce qui est mal déclaré ?

Merci,
Mathieu

**anapurna** · 27/06/2006, 10h23

salut

en fait le formcreate est une methode assigné a oncreate
rien a voir avec le creation de la form
la creation ce fait dans le constructor create comme toutes les class

je pense que pour faire ce que tu veut il te faut ajoute un evenement doconnect et dodisconnect

@+ Phil

**Yurck** · 27/06/2006, 10h24

Bonjour,

Ce n'est pas le formCreate qu'il faut modifier. D'ailleurs tu ne le pourra pas.
Tu doit surcharger le create.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
type
  TFInternet = class(TForm)
....
  public
   constructor Create(AOwner: TComponent; const Identifiant:string); override;
  end;
.........
 
Constructor TFInternet.Create(AOwner: Tcomponent; const Identifiant:string);
begin
  inherited;
  ...........
end;

a+

**bds2006** · 27/06/2006, 10h27

Bonjour,

Merci pour votre aide !

J'ai l'erreur suivante :

[Pascal Erreur] MInternet.pas(33): E2037 La déclaration de 'Create' diffère de la déclaration précédente

Avec ça :

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
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
     constructor Create(AOwner: TComponent; const Identifiant:string); override;
  end;
 
constructor TFInternet.Create(AOwner: Tcomponent; const Identifiant:string);
begin
     inherited;
     try
          FPrincipale.ClientDataSetPanel.CommandText := 'SELECT * FROM';
          FPrincipale.ClientDataSetPanel.Active := true;
     except
          on E : Exception do
          begin
               FPrincipale.Log('SQL : ' + FPrincipale.ClientDataSetPanel.CommandText);
               FPrincipale.Log(E.Message);
               MessageDlg(E.Message, mtError, [mbOK], 0);
          end;
     end;     
end;

Une dernière question, quand sera exécuté cette procédure ?

Merci,
Mathieu

**anapurna** · 27/06/2006, 10h31

salut

dans le create de la form

@+ Phil

**Bejaia-In** · 27/06/2006, 10h39

Quel interêt à insérer un paramètres dans un événement comme celui-ci ?
le mieux est de redéfinir la constructeur de TForm en intégrant ta propriété.

Code :

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

1
2
3
 public
    { Déclarations publiques }
    constructor Create(AOwner: TComponent; const identifiant:string);  reintroduce;

Code :

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

1
2
3
4
5
constructor TFInternet.Create(AOwner: TComponent; const identifiant:string);
begin
  inherited
 .../...
end;

**bds2006** · 27/06/2006, 10h43

Bonjour,

Merci pour votre aide.

J'ai donc apporté les modifications pour arriver à ça :

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
26
27
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
     constructor Create(AOwner: TComponent; const Identifiant:string); reintroduce;
  end;

implementation
     uses MPrincipale;
{$R *.dfm}

constructor TFInternet.Create(AOwner: Tcomponent; const Identifiant:string);
begin
     inherited;
     try
          FPrincipale.ClientDataSetPanel.CommandText := 'SELECT * FROM mpg_BASE WHERE Household ID=' + Identifiant;
          FPrincipale.ClientDataSetPanel.Active := true;
     except
          on E : Exception do
          begin
               FPrincipale.Log('SQL : ' + FPrincipale.ClientDataSetPanel.CommandText);
               FPrincipale.Log(E.Message);
               MessageDlg(E.Message, mtError, [mbOK], 0);
          end;
     end;     
end;