Créer un composant composite ?

Version imprimable

24/04/2006, 13h32
Jayceblaster

Créer un composant composite ?

Bonjour...

Voila mon ptit problème...

J'ai créé un petit programme de login (mot de passe et nom utilisateur) sous delphi.NET (VCL) et je souhaiterai en faire une classe mais le problème c'est que je n'ai jamais fait de classe qui lors de son instanciation créé un objet graphique..
En effet lorsque cette classe sera instanciée elle devra créer une form dans laquelle on sera inviter a saisir notre mot de passe.

Je supose qu'il faut que je fasse, dans le constructeur de ma classe, une sorte de Form Create mais je sais pas du tout comment faire...

Quelqu'un peut m'aider?
02/05/2006, 16h42
Jayceblaster

Y a personne qui peut m'aider ou m'indiquer un lien vers un cours????

:cry:
10/05/2006, 22h56
Laurent Dardenne

Il existe déjà une fiche de ce type sous Delphi.
11/05/2006, 11h59
Jayceblaster

Tu veux parler du menu "composant VCL"? (je suis sous Delphi 2006 pro)

En fait moi je souhaite faire une classe qui lorsque je l'instancierai me créra une form avec des panel et des bouton... et non un composant ( c'est un objet)

D'habitude je travaille en C# et je dispose, pour créer une classe, d'une bibliotheque de classe.

En Delphi .net je retrouve pas cette possibilité alors comment dois je faire pour créer une classe que je pourrai par la suite instancier depuis n'importe quel projet VCL?

L'une des approches possibles pour sauvegarder et restaurer une Tform est de proceder ainsi:

Sauvegarde:

Code:

WriteComponentRes('MaForm.nfm', self)

Restauration:
Code:

1 2 3 4 5 6 7 8 9 10 11 function CreateForm(FormClass: TFormClass; AOwner: TComponent; FrmFile: string): TForm; begin if FileExists(FrmFile) then begin Result:=(FormClass).CreateNew(AOwner); ReadComponentResFile(FrmFile, Result); end else Result:=(FormClass).Create(AOwner); end; end;
Note: CreateNew crée la form mais ne la charge pas.Ce rôle est réservé à ReadComponentResFile.

salut Fabrice....

J'ai rien compris a ce que tu m'as dit (je suis débutant :oops: )...

je rappelle que mon objectif et de faire une classe en delphi .NET que je pourrai instancier dans un projet Delphi .NET. Et, lors de cette instanciation je dois créer une forme sur laquelle il y a des Boutons...

Voila la classe que j'ai écrite:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
unit login;
interface
uses
  SysUtils, Classes, System.ComponentModel, Borland.Vcl.Controls,
  Borland.Vcl.ExtCtrls, IniFiles, Borland.Vcl.StdCtrls, Borland.Vcl.Forms;
 
type
  Tlogin = class(TForm)
    //déclaration de tout ce qu'il y a sur la form
    Label1: TLabel;
    nomUtilisateur: TComboBox;
    Label2: TLabel;
    Mot_Passe: TEdit;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  protected
    { Déclarations protégées }
  public
    { Déclarations publiques }
  published
    { Déclarations publiées }
  end;
procedure Register;
implementation
 
procedure Tlogin.FormCreate(Sender: TObject);
begin
    nomUtilisateur.Items.Add('Jean');     //ajout des noms dans la liste
    nomUtilisateur.Items.Add('Francois');
    nomUtilisateur.Items.Add('Pascal');
end;
 
procedure Tlogin.Button1Click(Sender: TObject);
var
  FichierIni          : TIniFile;
  sLecture_FichierIni, sNom_Utilisateur : string;
begin
  FichierIni := TIniFile.create('C:\Mots_Passe.ini');  //fichier mot de passe
  sLecture_FichierIni := FichierIni.ReadString('mot de passe',nomUtilisateur.Text,'Votre mot de passe est erroné. Veuillez le saisir de nouveau');
  if Mot_Passe.Text = sLecture_FichierIni then
    Application.MessageBox('le mot de passe est correct', nil)
  else
    Application.MessageBox('le mot de passe est incorrect', nil);
  FichierIni.Free;
end;
procedure Tlogin.Button2Click(Sender: TObject);
begin
  Application.Free;
end;
end.

le fichier mot de passe .ini est le suivant:

Code:

1
2
3
4
5
6
 
 
 [mot de passe]
  Jean = mot_passe1
  Francois = mot_passe2
  Pascal = mot_passe3

Mais lorsque j'instancie cette classe rien ne se passe...
Alors deux solution sois cette classe est nulle :) soit je ne l'instancie pas correctement :) ?

11/05/2006, 15h41
Fabrice ROUXEL 1

la function CreateForm peut s'utiliser comme cela:

Code:

MaForm := CreateForm(TForm1, Application, 'MaForm.nfm')

Je vais réécrire le code à partir de ton exemple en .Net.
La technique que je propose est celle utilisée par Delphi pour enregistrer et charger des fiches.
11/05/2006, 16h29
Jayceblaster

t'es sur que c'est pas MaForm.dfm et non .nfm???:oops:
11/05/2006, 19h45
Fabrice ROUXEL 1

Citation:

t'es sur que c'est pas MaForm.dfm et non .nfm???

Oui j'ai écrit un peu vite.

Il faut également lire WriteComponentResFile à la place de writecomponentres.
Tu peux tester voir ce que cela fait...

non en fait tu as raison maintenant avec delphi 2006 c'est plus des fichier dfm mais des nfm (bizarre :) ). Enfin bref....le contenu est le meme.
Mais je ne comprend pas trop ce que tu veux que je fasse.
Regarde moi j'ai un projet VCL avec une IHM qui contient des boutons et des zones de saisie.
Je te redonne le code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
unit login;
interface
uses
  SysUtils, Classes, System.ComponentModel, Borland.Vcl.Controls,
  Borland.Vcl.ExtCtrls, IniFiles, Borland.Vcl.StdCtrls, Borland.Vcl.Forms;
 
type
  Tlogin = class(TForm)
    //déclaration de tout ce qu'il y a sur la form
    Label1: TLabel;
    nomUtilisateur: TComboBox;
    Label2: TLabel;
    Mot_Passe: TEdit;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
 
  private
    { Déclarations privées }
  protected
    { Déclarations protégées }
  public
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  published
    { Déclarations publiées }
  end;
 
implementation
 
procedure Tlogin.FormCreate(Sender: TObject);
begin
    nomUtilisateur.Items.Add('Jean');     //ajout des noms dans la liste
    nomUtilisateur.Items.Add('Francois');
    nomUtilisateur.Items.Add('Pascal');
end;
 
procedure Tlogin.Button1Click(Sender: TObject);
var
  FichierIni          : TIniFile;
  sLecture_FichierIni, sNom_Utilisateur : string;
begin
  FichierIni := TIniFile.create('C:\Mots_Passe.ini');  //fichier mot de passe
  sLecture_FichierIni := FichierIni.ReadString('mot de passe',nomUtilisateur.Text,'Votre mot de passe est erroné. Veuillez le saisir de nouveau');
  if Mot_Passe.Text = sLecture_FichierIni then
    Application.MessageBox('le mot de passe est correct', nil)
  else
    Application.MessageBox('le mot de passe est incorrect', nil);
  FichierIni.Free;
end;
procedure Tlogin.Button2Click(Sender: TObject);
begin
  Application.Free;
end;
end.

et je souhaite réutiliser ce code (avec le panel dans un autre projet VCL).
Je fais alors:

Code:

1
2
3
4
5
6
7
8
9
 
  //form1 est la form du nouveau projet vcl censé appelé ma fenetre de login
  procedure Form1.FormCreate(Sender: TObject);
var
  monLogin : login.Tlogin;
begin
   monLogin.create(self);  //création de mon objet
   monLogin.FormCreate(nil); //appel de la création de ma fenetre login
end;

A la suite de ce code j'espere afficher mon panel de login mais rien ne se passe.

rem: j'ai inclu en premier un 'use login'
;)

C'est ton dernier code qui nous interresse !!!
Et donc pour créer une instance, en Pascal, c'est comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
  //form1 est la form du nouveau projet vcl censé appelé ma fenetre de login
  procedure Form1.FormCreate(Sender: TObject);
var
  monLogin : login.Tlogin;
begin
   monLogin := login.Tlogin.create(self);  //création de mon objet
   // L'evenement FormCreate sera appelé tout seul
   // Maintenant affichons cette form :
  monLogin.Show;
end;

ok, c'est plus clair, en fait tu souhaitais juste instancier une classe.

Par contre, dans le code de neilbgr tu peux remplacer monLogin.Show par monLogin.ShowModal
Places la propriété ModalResult du Button1 à mrOK et celle du Button2 à mrCancel.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 procedure Tlogin.Button1Click(Sender: TObject); var FichierIni : TIniFile; sLecture_FichierIni, sNom_Utilisateur : string; begin ModalResult := mrOK; .... procedure Tlogin.Button2Click(Sender: TObject); begin ModalResult := mrCancel; Application.Terminate; end;
Dans le second projet:
Code:

1 2 monLogin := Tlogin.create(self);
ou :
Code:

1 2 monLogin := Tlogin.create(Application);
ou bien:
Code:

1 2 Application.CreateForm(TLogin, login);
ou encore
Code:

1 2 monLogin := Tlogin.create(Nil);
mais dans ce dernier cas il faudra penser à libérer explicitement la classe par un appel à "login.Free;"

puis dans tous les cas:
Code:

1 2 monLogin.ShowModal;
---------

Il faudra revoir la sécurité du mot de passe, actuellement il est en clair dans un fichier .ini,
ce qui n'est pas acceptable.

Finalement ton sujet c'était plutôt "comment instancier une classe TForm?" et non pas "comment créer un composant composite?"
parce qu'entre les 2, bah il y a tout de même une certaine marge.

Soit la fiche est auto-générée par l'application (Application.CreateForm) et c'est le cas dans ton projet contenant l'unité
Login, soit elle est créée manuellement (monLogin := TLogin.Create(Self)) comme dans ton second projet (ajout de l'unité Login.pas).

En revanche, si tu souhaites coder "une classe qui lorsque tu l'instancieras créera une form" alors elle devra être capable de recenser la
form, créer un .nfm , sauvegarder et charger la form etc.
J'ai emprunté cette voie là qui, après enquête, semble bien pénible à mettre en oeuvre...

14/05/2006, 13h49
Jayceblaster

Merci pour votre aide....
J'essaye ca demain et je vous dit quoi :D

Citation:

Finalement ton sujet c'était plutôt "comment instancier une classe TForm?" et non pas "comment créer un composant composite?"
parce qu'entre les 2, bah il y a tout de même une certaine marge.

C'est pas moi qui ai mis ce titre, il a était renommé...;)
14/05/2006, 14h11
Laurent Dardenne

Citation:

Envoyé par Jayceblaster

C'est pas moi qui ai mis ce titre, il a était renommé...

Un modérateur à modifiè le titre (Merlin je pense), cela permet d'avoir une base plus pertinente lors des recherches, de plus les autres membres accorderont un peu plus d'attention à ton post.
15/05/2006, 13h49
Jayceblaster

Merci encore ca marche avec le showModal :D .

Ceci dit y a un cas particulier qui pose problème. En effet losque j'ai deux classe de type TForm qui se font appel respectivement (la classe A appelle la classe B qui appelle elle meme la classe A) le compilateur m'indique une erreur:

Code:

Référence d'unité circulaire à "classe A"

Ca parait logique puisque dans classe A je fais un use de classe B qui fait elle meme un use de classe A....

Mais comment dois je faire pour m'affranchir de cette erreur???
;)
15/05/2006, 14h27
Fabrice ROUXEL 1

Pour contourner le probleme tu peux mettre un uses A dans l'interface de B
et un uses B dans la partie implémentation de A.
15/05/2006, 16h09
Jayceblaster

J'ai deja fait ca mais il me dit (le compilateur) que le type TclasseA (celui défini dans l'implémentation) est inconnu.

;)
15/05/2006, 16h59
Jayceblaster
ben en fait c moi qui est fait une faute de frappe ca marche tres bien :oops: .

Y a ceci dit encore un truc bizarre...
J'ai toujours mes deux classes A et B et sur la classe A j'ai un bouton qui me ferme mon panel A (pour revenir au panel B) et dans ma classe B j'ai un bouton qui me permet d'acceder à mon panel A.

Dans le code de la classe A pour fermer mon panel A j'ai le code suivant:
Code:

1 2 objetClasseA.free; //ferme le panel
Cela marche très bien lorsque j'exécute la classe A seule mais lorsque je lance la classe B et que je clique sur le bouton pour accédé au panel de la classe A je n'arrive pas a fermer le panel A ou se trouve mon bouton (alors que seul ca marche)...

Tu vois ce qu'il se passe (a croire que je n'ai pas la main sur mon panel A)???
16/05/2006, 15h26
Fabrice ROUXEL 1

Je ne comprend pas très bien..
Quand tu parles de panels, s'agit il d'un compo TPanel posé sur une Tform?
Sans le code ca va être difficile d'éclaircir tout cela.

ps: Au sujet de l'unité TLogin importée, vérifies dans les options du projet ->
forms, qu'elle n'est pas mentionnée dans la rubrique autocreate.
16/05/2006, 15h51
Jayceblaster

En fait quand je parle de panel je parle de TForm désolé.....:oops: