Discussion :

[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 :

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

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.

[Pascal Fonteneau]

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

[jojo86]

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 :

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

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 !

[Pedro]

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?

[ShaiLeTroll]

Voir dans Classes.pas

Code :

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

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 !

[jojo86]

Ok, Je vais voir ça.

Merci de votre aide !

[jojo86]

Voir dans Classes.pas

Code :

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

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 !

[Paul TOTH]

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 :

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

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 :

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

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 :

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

1
2
3
 
 Form2.Caller:=Self;
 Form2.Show;

et dans Form2 tu pourras faire

Code :

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

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

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 :

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

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 :

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
 
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

[jojo86]

voila de qui te donner mal à la tête

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

[jojo86]

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 :

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

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 !!

[Paul TOTH]

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 :

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
 
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;