Discussion :

[BuzzLeclaire]

Bonjour à toutes et à tous

Petit question.
Est-il possible d'ouvrire une Form selon la valeur d'un variable de type String ?

Je m'explique.
Admettons que ma variable est ce genre de valeurs

Code :

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

1
2
3
4
5
MyVariable := 'Materiel';
// ou
MyVariable := 'Voiture';
// ou
MyVariable := 'Location';

Peut-on ouvrir la form qui s'y rattache ? de ce genre :

Code :

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

1
2
3
4
5
6
  LaForm := TF?????.Create(Self) do
  Try
      Showmodal;
  Finally
      Release;
  End;

Le TF?????, j'imagine bien que je pourrais faire un Case of, mais ne peut-on pas avoir un record de TForm prémorisé ? ou un truc du genre ?

Je précise que les forms sont obligatoirement tous différentes.

Merci.

[Paul TOTH]

voici un moyen simple

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 TMainForm.FormCreate(Sender: TObject);
begin
  RegisterClass(TMateriel);
  RegisterClass(TVoiture);
  RegisterClass(TLocation);
end;
 
function TMainForm.GetFormByName(const AName: string): TForm;
begin
  Result := TForm(GetClass('T' + AName).NewInstance);
  Result.Create(Self);
end;
 
procedure TMainForm1.Button1Click(Sender: TObject);
var
  Form: TForm;
begin
  Form := GetFormByName('Materiel');
end;

voila

[BuzzLeclaire]

voici un moyen simple

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 TMainForm.FormCreate(Sender: TObject);
begin
  RegisterClass(TMateriel);
  RegisterClass(TVoiture);
  RegisterClass(TLocation);
end;
 
function TMainForm.GetFormByName(const AName: string): TForm;
begin
  Result := TForm(GetClass('T' + AName).NewInstance);
  Result.Create(Self);
end;
 
procedure TMainForm1.Button1Click(Sender: TObject);
var
  Form: TForm;
begin
  Form := GetFormByName('Materiel');
end;

voila

Superbe.

Mais, car il y a un mais...

Aujourd'hui, j'ouvre une form principal de départ, sur cette Form principal, j'en ouvre une seconde (que j'appelerai FormVisu) où se trouve les boutons, là je clique sur un bouton [modifier] par exemple et j'utilise ta proposition. bien.

Mais la form Visu au moment de l'ouvrir, je sais pertinament que je n'ouvrirais pas la suite, à l'aide des boutons qu'une seul et unique form (form de saisie).
A chaque fois que j'ouvre la form Visu je peux être soit sur la liste s des véhicules soit sur la liste des matériels, etc.. mais jamais les 3 ou 2 en même temps, donc quand j'ouvre ma form de saisie (a l'aide de ta proposition) puis-je faire ceci :

Dans la form principal

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
procedure TFPrincipal.FichierClick(Sender: TObject);
Var
  CaptionFichier: String;
begin
  if (Sender is TMenuItem) then
  begin
             // xTable peut avoir la valeur 
             // Materiel, Vehicule, Location
             // xTable est déclarér en public sur formVisu
   With TFormVisu.Create(Self) do
   begin
    Try
       xTable := (hint du TMenuItem cliqué); // J'envoi le nom de la table à FormVisu utilisé pour DBGrid
 
 
// comment ici pouvoir envoyer que la fiche de saisie est lier à xTable
// sachant que je n'ai forcément qu'un choix à faire parmis 3
       RegisterClass(T??? xTable ???);
 
       ShowModal;
    Finally
      release;
    end;
// ....
 
end;

Dans la form visu quand je vais cliquer sur le bouton créer par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function TFormVisu.GetFormByName(const AName: string): TForm;
begin
  Result := TForm(GetClass('T' + AName).NewInstance);
  Result.Create(Self);
end;

procedure FormVisu.Button1Click(Sender: TObject);
var
  Form: TForm;
begin
  Form := GetFormByName(xTable); // POSSIBLE ???
end;

Merci

[ShaiLeTroll]

Normalement le RegisterClass n'est pas obligatoire, il est fait automatiquement parce que la Form est associé à une Ressource DFM !
A Vérifier !

Je n'arrive pas à comprendre ton second problème !
Tu veux qu'une seule instance par classe de Form ?

Tu stockes tes objets dans une TStringList triés, si IndexOf trouve le nom, tu renvoie l'instance, dans la cas contraire tu créés une nouvelle instance et tu l'ajoute à la liste !

Tu peux aussi parcourir les Components de la MainForm qui énumèrent toutes les fenêtres qui l'ont comme Owner

[BuzzLeclaire]

... Tu peux aussi parcourir les Components de la MainForm qui énumèrent toutes les fenêtres qui l'ont comme Owner

Non, les forms sont créées à la volée, il n'existe pas avant le clique sur un bouton.

Normalement le RegisterClass n'est pas obligatoire, il est fait automatiquement parce que la Form est associé à une Ressource DFM !
A Vérifier !

... Si tu le dis ....

Tu stockes tes objets dans une TStringList triés, si IndexOf trouve le nom, tu renvoie l'instance, dans la cas contraire tu créés une nouvelle instance et tu l'ajoute à la liste !

???? hummm... et cela se traduit comment ? je n'ai j'amais gérezr ce type d'objet dans un TStringlist ou autre TList.

Je n'arrive pas à comprendre ton second problème !
Tu veux qu'une seule instance par classe de Form ?

A l'écrit pas évident à s'expliquer. Je fais refaire de mon mieux

J'ai un TMenu avec des items (véhicule, voiture, location) dans le hint de chacun de ces items j'ai respectivement (vehicule, voiture, location) ... si si si il y à une différence le caractère accentué et le souligné que j'aurais pas... bref.
Quand je clique sur un des items, je récupére donc le Hint qui en fait est le nom de ma Table que je devrais afficher.

Donc je clique par exemple sur l'item voiture, là une TFORM s'ouvre avec un DBGRID et 4 boutons (y a plein d'autre chose mais on s'en fou), au create de cette form j'envoi le nom de la table qui est donc le hint pour le DBGRID.

d'où :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFPrincipal.FichierClick(Sender: TObject);
Var
  CaptionFichier: String;
begin
  if (Sender is TMenuItem) then
  begin
   With TFormVisu.Create(Self) do
   begin
    Try
       xTable := (hint du TMenuItem cliqué); // pour le DBGrid (enfin le Qry et source)
       ShowModal;
    Finally
// ...

Ensuite je sais pertinament que l'utilisateur va cliquer sur un des 4 boutons respectivement [Créer] / [Modifier] / [SUPPRIMER] / [COPIER] et que cela sera lié à la table donc ici voiture.
Si il clique sur [Créer] j'ouvre la TForm voiture (qui est forcément différente des autre Tform) et il créé sa bagnole.
Fini il ferme tous

Donc le file conducteur est xTable, comment faire pour optimiser mon code ?
En fait, je n'ai pas besoin de préparer avec un registerClass l'ensemble des fenêtres de saisie, puisque je le saurais tout au début au moment du clique sur le HINT.

Le but étant de simplifié le code.

J'espère avoir été plus claire.

Merci pour vos idées.

[cincap]

@ BuzzLeclaire, et si tu utilisais la propriété "Tag" ?

Pour mes différents Skins c'est ce que je fais avec la variable I Integer.

Code :

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

1
2
 
i:=Tcomponent(sender).tag;

@+,

Cincap

[Paul TOTH]

Le register class est nécessaire pour les fiches (sous D7 en tout cas) car elles ne sont jamais crée par le DFM mais c'est elles qui chargent les DFM

Pour ce qui est de ta seconde question elle est bidon si je puis me permettre

Le problème: tu veux pouvoir créer une fiche d'après son nom

La solution: il te faut une information qui lie le nom à la classe

La méthode 1: tu peux créer un TStringList qui associe les noms et les classes en te creusant la tête sur comment faire fonctionner le tout

La méthode que je préconise : utiliser RegisterClass qui fait déjà tout ça et GetClass qui va avec

Les 3 appels à RegisterClass() ne font rien d'autre que d'associer le type à son nom, soit EXACTEMENT ce que tu cherches

après ton histoire de xTable c'est juste de savoir à quel moment tu vas instancier la classe retournée par GetClass, au moment du clic sur un bouton ou avant, peu importe.

EDIT: au fait si c'est une question d'optimisation tu colles en effet un entier dans Tag et tu fais un case dessus au lieu de t'emm... avec des string

[ShaiLeTroll]

Normalement le RegisterClass n'est pas obligatoire, il est fait automatiquement parce que la Form est associé à une Ressource DFM !
A Vérifier !

... Si tu le dis ....

Je le dis mais c'est une erreur, j'ai tellement l'habitude d'utiliser mes propres objets que j'oublie que certains incluent des mécanismes automatiques (dont le RegisterClass parce que j'utilise bcp ce genre de comportement), donc oui il faut bien le faire explicitement

J'aurais du lire mais signature avant !

Sinon, pour ce genre de chose j'utilise aussi un type numérique, le Tag pour le stockage dans le menu que je converti en Enumération

Code :

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

1
2
3
4
5
6
7
type
  TSaisieFormClass = class of TSaisieForm; // un type ancêtre pour regrouper des trucs standard comme Edit, View, ... à surcharger si besoin ...
  TSaisieFormClassType = (sfcVoiture, Location, sfcAutre)
 
const
  FORM_CLASSES : array[TSaisieFormClassType] of TSaisieFormClass =
    (TSaisieVoitureForm, TSaisieLocationForm, TSaisieAutreForm);

Code :

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

1
2
3
4
5
 
if (Ord(Low(TSaisieFormClassType)) <= Menu.Tag) and (Menu.Tag <= Ord(high(TSaisieFormClassType))) then 
  Form := FORM_CLASSES[TSaisieFormClassType(Menu.Tag)].Create(Self)
else
  raise ESaisieFormError.Create(...);

Si tu n'aime pas le Tag, reste la possibilité de faire via

Code :

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

I := TypInfo.GetEnumValue(TypeInfo(TSaisieFormClassType), 'sfc' + Menu.Hint)

le RegisterClass a un défaut, c'est que l'on ne trouve pas facilement l'endroit ou la classe est utilisé, voir jamais car le seul uses peut être dans le DPR et nulle part ailleurs
le tableau force un uses explicite et permet de plus facilement retrouver ses petits
ce n'est que mon avis, j'utilise les deux méthodes selon l'humeur

[BuzzLeclaire]

Merci à vous.

Comme le Dit Paul, pourquoi se faire chi** avec des strings ou l'utilisation compliquer d'instanciation !!!

En fait sachez que j'utilisais avant le tag et je faisais un Case restait à savoir que 0 = tel form à ouvrir 1 = tel autre etc... rien de bien compliqué...

Mais cela me permet surtout d'apprendre grace à vous des méthodes que je n'aurais jamais imaginé... comme le type ancêtre TSaisieFormClass = class of TSaisieForm; de Shell ou le TForm(GetClass('T' + AName).NewInstance); de Paul.

Vous avez largement répondu à mon besoin et je vous remercie.