Récupérer le Nom d'une Form

Bonsoir,

J'aimerais récuperer le nom d'un form à partir d'un autre afin de modifier certaine valeur de mon form d'origine.

Je voulais passer par l'intermediaire d'un champ text, mais ça me pose trop de problème, car je n'arrive pas à réutiliser ma variable qui est en "string" pour la réutiliser en temp que nom du form.

Voici ce que je voudrais faire (avec l'intermediaire d'un champ text) :

Code:

---

1 2 3 4 5 6 7 8 9 10

//Form 1 Form2.FormAppl.text:='Form 1' // Ajout du nom du form d'origine dans le champ text   Form2.show;   // Puis, action sur Form2 : //Selection d'une valeur (par exemple); NomDuFormDorigine.Nom.text:='nouveauNom';

---

Je ne sais pas si j'ai été assez clair...

Merci de votre aide.

Bj

Si tu connais la form qui doit être modifiée, alors ajoute simplement le nom de l'unité qui la contient dans la clauses uses (partie implementation si besoin).

si tu as plusieurs fiches dont tu ne connais pas le nom, il faudra boucler sur les form (depuis la form principal )et tester leur proprieté name par exemple

En faite, il s'agit d'une form qui peut-être appelée de n'importe quel autre form.
Sachant que tout mes form ont un champ text identique (exemple :ValeurRetournee.text) je veux a partir de mon deuxième form modifcier la valeur de ce champ text.

Je pense que je vais proceder comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

//Execution du FormCommun et donc on viens ajouter dans un champ text invisible le nom du form qui attent le retour d'info : //L'utilisateur fait un choix sur le formCommun, puis lorsqu'on valide, on vient tester quel form à demandé l'info grace au champ text :   If ChampTextInvisible.Text='ChampNumero2' then begin ChampNumero2.ChampRetourInfo.text:=ChampInfo.text; close; end Else if ChampTextInvisible.text:='ChampNumero4' then begin ChampNumero4.ChampRetourInfo.text:=ChampInfo.text; close; end; end;

---

C'est vraiment simple, mais bon ça fonctionne...
Si quelqu'un connait une autre methode, je suis preneur !

Merci !

Salut :)
Je ne comprends pas bien: tu voudrais simplement avoir un champs text accessible depuis les autres Forms et accéder à ta Form d'après le contenu de ce champ Text c'est bien ça?

Voir dans Classes.pas

Code:

---

function FindGlobalComponent(const Name: string): TComponent;

---

Qui utilise la propriété Name et l'objet Screen (lequel j'ai cité dans l'autre sujet)

l'Avantage, c'est que le nom d'une fenêtre est unique !

Ok, Je vais voir ça.

Merci de votre aide !

Citation:

---

Envoyé par ShaiLeTroll

Voir dans Classes.pas

Code:

---

function FindGlobalComponent(const Name: string): TComponent;

---

Qui utilise la propriété Name et l'objet Screen (lequel j'ai cité dans l'autre sujet)

l'Avantage, c'est que le nom d'une fenêtre est unique !

---

Cette methode fonctionne correctement, mais dans mon cas, l'une des forms est integrées dans une form principal (MaForm.Parent:=FormPrincipale). Et donc, je ne peut pas modifier les valeurs d'un champ text qui se trouve sur cette form...

Si quelqu'un avait une petite idée...

Merci !

Dans ce cas, il faut faire un FindComponent sur la Owner de la Form recherchée (Application ou FormPrincipale)

Attention, ne pas confondre l'imbrication logique visuelle du Parent, et la notion de possession (responsable de la libération mémoire) du Owner ...

:D
Owner... Je ne sais pas ce que c'est... j'ai trouvé ceci
http://llb.developpez.com/compo_dyn/?page=page_3#LIII-B

Mais c'est du chinoi...

Je ne comprend pas comment faire un FindComponent sur la Owner de la form principale...

Merci de ton aide.

Citation:

---

Envoyé par jojo86

Bonsoir,

J'aimerais récuperer le nom d'un form à partir d'un autre afin de modifier certaine valeur de mon form d'origine.

Je voulais passer par l'intermediaire d'un champ text, mais ça me pose trop de problème, car je n'arrive pas à réutiliser ma variable qui est en "string" pour la réutiliser en temp que nom du form.

Voici ce que je voudrais faire (avec l'intermediaire d'un champ text) :

Code:

---

1 2 3 4 5 6 7 8 9 10

//Form 1 Form2.FormAppl.text:='Form 1' // Ajout du nom du form d'origine dans le champ text   Form2.show;   // Puis, action sur Form2 : //Selection d'une valeur (par exemple); NomDuFormDorigine.Nom.text:='nouveauNom';

---

Je ne sais pas si j'ai été assez clair...

Merci de votre aide.

---

ok, tout dépend de ce que tu veux faire.

l'appelant tu peux tout simplement le déclarer dans Form2

Code:

---

1 2 3 4 5 6 7 8

type TForm2=class(TForm) private fCaller:TForm; public property Caller:TForm read fCaller write fCaller; end;

---

du coup dans Form1 tu feras un

Code:

---

1 2 3

Form2.Caller:=Self; Form2.Show;

---

et dans Form2 tu pourras faire

Code:

---

1 2	Caller.Caption:='coucou';

---

ensuite, comme tu le soulignes, le TForm générique ne possède pas les composants de TForm1...et là tu as plusieurs solutions en fonction de ton besoin

Si c'est pour mettre à jour un TEdit par exemple, au lieu de placer Form1 dans Form2.Caller:TForm tu placer Form1.Edit1 dans Form2.Edit:TEdit :D

si c'est plusieurs composants, peut-être qu'une frame tu permettrais de les regrouper et alors Form2.Frame de type TMyFrame prend la valeur de Form1.Frame1:TMyFrame

au solution plus orientée objets, toutes les fiches modifiables par Form2 doivent dériver d'un TMyForm qui sera le type de Form2.Form

et si ce n'est pas possible, tu va devoir passer par une classe intermédiaire :

Code:

---

1 2 3 4 5 6 7 8 9 10

type TModifier=class private fTarget:TForm; public constructor Create(Target:TForm); procedure UpdateWith(Form2:TForm2); virtual; abstract; property Target:TForm read fTarget; end;

---

cette classe sera utilisée par Form2, chaque fiche devra créer un descandant de TModifier qui surcharge UpdateWith() pour a récupérer ce qui l'intéresse dans Form2

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

type TForm1Modifier=class(TModifier) procedure UpdateWith(Form2:TForm2); override; end;   procedure TForm1Modifier.UpdateWith(Form2:TForm2); begin TForm1(Target).Edit1.Text:=Form2.Edit1.Text; end;   procedure Tform1.Button1Click(Sender:TComponent); begin Form2.Modifier:=TForm1Modidier.Create(Self); Form2.Show; end;   // et dans Form2 procedure TForm2.Button1click(Sende:rTComponent); begin if Modifier<>nil then begin Modifier.UpdateWith(Self); Modifier.Free; Modifier:=nil; end; end;

---

voila de qui te donner mal à la tête :D

Citation:

---

Envoyé par Paul TOTH

voila de qui te donner mal à la tête

---

Je pense oui... je vais étudier ça... et je reviens plus tard pour les questions !

Yes ! j'y arrive avec des TEdit !!!

Bon par contre, j'aimerais bien une ou deux petite explication si c'est possible...

Notament à ce sujet :

Code:

---

1 2 3 4 5 6 7

type TForm3 = class(TForm) private fCaller:TForm; public property Caller:TForm read fCaller write fCaller;

---

private
fCaller:TForm;
Est-ce la "variable" qui contiendra le nom de la Form d'appel (Caller)?

public
property Caller:TForm read fCaller write fCaller;
Pour cette ligne... c'est un peu flou pour mes yeux de débutant...
Property c'est la déclaration de la propriété c'est ça?

Caller c'est le nom de la propriété?

Read fCaller write fCaller je ne comprend pas ce qu'on vient lire et ecrire...

Voila, désolé d'être currieux, mais c'est plus fort que moi !!!

Et Encore merci de prendre le temp de m'aider, c'est super gentil !

Merci à tout Developpez !!

private
fCaller:TForm;
> Est-ce la "variable" qui contiendra le nom de la Form d'appel (Caller)?

c'est pas un "nom", c'est un pointeur, mais c'est en effet lui qui va contenir l'adresse de la fiche d'appel

public
property Caller:TForm read fCaller write fCaller;
> Pour cette ligne... c'est un peu flou pour mes yeux de débutant...

c'est donc une propriété qui se nomme Caller qui contient l'adresse d'une instance de TForm...read indique comment la lire, write comment la mettre à jour.

Delphi, contrairement aux autres langages, propose d'indiquer simplement le nom d'un champ de l'objet qui contiendra la valeur.

on aurait pu également utiliser des méthode comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

type TForm2=class(TForm) ... private fCaller:TForm; procedure SetCaller(Value:TForm); function GetCaller:TForm; public property Caller read GetCaller write SetCaller; end;   procedure TForm2.SetCaller(Value:TForm); begin fCaller:=Value; end;   function TForm2.GetCaller:TForm; begin Result:=fCaller; end;

---