Modifier le FormCreate ?

Version imprimable

Bonjour,

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

Voici mon code :
Code:

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

27/06/2006, 10h23
anapurna

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

Bonjour,

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

Code:

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;

Bonjour,

Merci pour votre aide !

J'ai l'erreur suivante :

Citation:

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

Avec ça :

Code:

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

27/06/2006, 10h31
anapurna

salut

dans le create de la form

@+ Phil

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:

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

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

Bonjour,

Merci pour votre aide.

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

Code:

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;

J'ai une erreur sur le : inherited
La voici :

Citation:

[Pascal Erreur] MInternet.pas(52): E2008 Types incompatibles

Merci,
Mathieu

27/06/2006, 10h51
sjrd

Code:

inherited Create(AOwner);

La forme raccourcie ne fonctionne que si les paramètres sont exactement les mêmes.
27/06/2006, 10h52
bds2006

Bonjour,

Merci, ça fonctionne à très bien !

Mathieu
27/06/2006, 10h57
Bejaia-In

il falait écrire le code exactement comme je l'ai donné, "Inherited" est sans ";" a sa fin et ça marche trés bien !