Discussion :

[alainvh]

Bonsoir,
Voici la conséquence de ma précédente discussion. Je corrige mon application pour partager des procédures et ressources... Une procédure que je voudrais partager contient des composants par ex : Form1.Edit1 que j'aimerais remplacer par Forme.Edit1 où Forme serait un paramètre TForm qui recevrait Form1. Voici un exemple de code pour situer mon pb :

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
var
  Form1: TForm1;

  procedure Suite(Forme:TForm);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Suite(Form1); // ou Suite(Self)
end;

procedure Suite(Forme:TForm);
begin
  with Forme do
    begin
      Canvas.Brush.Color:=clRed; // <----- cette ligne fonctionne
      //Edit1.Text:='Toto';  // <----------- celle-ci plante !!!
      Form1.Edit1.Text:='Toto'; // <------- celle-ci fonctionne (normal)
    end;
end;

Pourquoi ce plantage ?

Cordialement, Alain

[Paul TOTH]

Alors première remarque, c'est n'est pas "Suite(Form1)" mais bien "Suite(Self)" !

la différence est de taille, exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
begin
// première fenêtre de type TForm1
  Form1 := TForm1.Create(nil);
// seconde fenêtre de type TForm1
  Form1 := TForm1.Create(nil); 
// maintenant clique sur le Button1 de la première fenêtre
// -> c'est la second fiche qui est affectée !
  Form1 := nil;
// maintenant clique sur Button1 !
// -> plantage !
end;

Ensuite dans le code de Suite tu veux faire référence à Edit1...or Edit1 n'existe pas dans TForm, il n'existe que dans TForm1, il faut donc un paramètre de type TForm1...ou TEdit (si seul le TEdit est modifié) afin de pouvoir l'utiliser avec des TEdit d'autres formes !

et pour achever de te plonger dans le brouillard, introduisons "overload"

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
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Suite(Self);
  Suite(Edit1); 
end;
 
procedure Suite(Form: TForm); overload;
begin
  Form.Canvas.Brush.Color = clRed;
end;
 
procedure Suite(Edit: TEdit); overload;
begin
  Edit.Text:='Toto'; 
end;

[alainvh]

Edit1 n'existe pas dans TForm, il n'existe que dans TForm1

Ok, je confonds donc ici le type (TForm) et le name (Form1) : mais c'est très grave, ça

pour achever de te plonger dans le brouillard

l'humour, ça me va bien, mais c'est pourtant un peu méchant : en effet, pour une fois que nous n'en avons, ici en Champagne, en plein hiver (soleil toute la journée, exceptionnel !)
overload (surcharge) ne me convient pas. En fait, j'ai un ensemble de procédures et fonctions qui me permettent l'affichage des drives accessibles (avec leurs types -disque dur, disquettes, la présence ou non d'une disquette dans le lecteur, etc...) : ces procédures utilisent RadioGroup, Memo, etc... Je trouvais donc chouette de pouvoir atteindre ces composants par un passage de paramètre Form comme dans mon exemple. Vu que cela ne marche, je vais faire dans le lourd. Ex :

Code :

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

1
2
3
4
5
 
procedure ListDrives(RG:TRadioGroup;M:TMemo; etc...);
 
// les appels seront du style :
ListDrives(Form4.RadioGroupDrives,Form4.MemoDrives, etc...);

J'espérais n'utiliser qu'un paramètre Form pour éviter la multiplicité des paramètres à passer.

Merci pour ton aide.
Cordialement
Alain

[alainvh]

Bonsoir,
Voici la conséquence de ma précédente discussion. Je corrige mon application pour partager des procédures et ressources... Une procédure que je voudrais partager contient des composants par ex : Form1.Edit1 que j'aimerais remplacer par Forme.Edit1 où Forme serait un paramètre TForm qui recevrait Form1. Voici un exemple de code pour situer mon pb :

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
var
  Form1: TForm1;

  procedure Suite(Forme:TForm);

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Suite(Form1); // ou Suite(Self)
end;

procedure Suite(Forme:TForm);
begin
  with Forme do
    begin
      Canvas.Brush.Color:=clRed; // <----- cette ligne fonctionne
      //Edit1.Text:='Toto';  // <----------- celle-ci plante !!!
      Form1.Edit1.Text:='Toto'; // <------- celle-ci fonctionne (normal)
    end;
end;

Pourquoi ce plantage ?

Cordialement, Alain

[Paul TOTH]

Ok, je confonds donc ici le type (TForm) et le name (Form1) : mais c'est très grave, ça
l'humour, ça me va bien, mais c'est pourtant un peu méchant : en effet, pour une fois que nous n'en avons, ici en Champagne, en plein hiver (soleil toute la journée, exceptionnel !)
overload (surcharge) ne me convient pas. En fait, j'ai un ensemble de procédures et fonctions qui me permettent l'affichage des drives accessibles (avec leurs types -disque dur, disquettes, la présence ou non d'une disquette dans le lecteur, etc...) : ces procédures utilisent RadioGroup, Memo, etc... Je trouvais donc chouette de pouvoir atteindre ces composants par un passage de paramètre Form comme dans mon exemple. Vu que cela ne marche, je vais faire dans le lourd. Ex :

Code :

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

1
2
3
4
5
 
procedure ListDrives(RG:TRadioGroup;M:TMemo; etc...);
 
// les appels seront du style :
ListDrives(Form4.RadioGroupDrives,Form4.MemoDrives, etc...);

J'espérais n'utiliser qu'un paramètre Form pour éviter la multiplicité des paramètres à passer.

Merci pour ton aide.
Cordialement
Alain

un TFrame à partager ne serait-il pas plus indiqué ?

[alainvh]

Tiens, je viens de me rendre compte que j'ai commis une bêtise : en voulant changer le titre de la discussion (remplacement de TFont -qui était une erreur- par TForm), j'ai créé un message (à 18 h.27) qui est une citation de moi-même. N'importe quoi, excuses à tous.

@ Paul Toth

TFrame ? Connais pas ! Je viens de regarder dans l'aide Delphi. C'est une piste à suivre (pour demain )
Merci.

[mick605]

Edit1 n'existe pas dans TForm, il n'existe que dans TForm1

Ok, je confonds donc ici le type (TForm) et le name (Form1) : mais c'est très grave, ça

Non, pas exactement ...

En fait, quand tu crées une fiche, via Delphi tu crées un type.
Ce type, c'est TForm1, qui dérive de TForm. Ce type TForm1 contient tous les composants que tu as inséré sur ta fiche. Par la même occasion, quand tu crées une fiche via Delphi, tu crées aussi une variable du type que tu viens de creer. Cette variable est de type TForm1, et s'appelle Form1.

Donc pour revenir a ton problème, tu peux déclarer plusieurs méthodes, du genre :

Code :

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

1
2
3
4
procedure MyProc (AForm : TForm1);
begin
  AForm.Edit1.Text:='Voila';
end;

Bien sur, il faut que le type TForm1 contienne un TEdit nommé Edit1 ...

[alainvh]

Bonsoir mick605,

BINGO O O O !!! Ta solution répond parfaitement à ma demande : passer un paramètre TForm ( c'est mon vocabulaire à moi ) comme je l'imaginais, ça peut se faire !!! Voici mon code initial qui ne fonctionnait pas :

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
var
  Form1: TForm1;

  procedure Suite(Forme:TForm); // l'erreur est ici !!!

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Suite(Form1); // ou Suite(Self)
end;

procedure Suite(Forme:TForm);
begin
  with Forme do
    begin
      Canvas.Brush.Color:=clRed; // <----- cette ligne fonctionne
      //Edit1.Text:='Toto';  // <----------- celle-ci plante !!!
      Form1.Edit1.Text:='Toto'; // <------- celle-ci fonctionne (normal)
    end;
end;

Voici le code corrigé :

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
var
  Form1: TForm1;

  procedure Suite(Forme:TForm1); // C'est juste ce 1 qui fait la différence

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Suite(Form1); // ou Suite(Self)
end;

procedure Suite(Forme:TForm1);
begin
  with Forme do
    begin
      Canvas.Brush.Color:=clRed; // <----- cette ligne fonctionne
      Edit1.Text:='Toto';  // <----------- CELLE-CI NE SE PLANTE PLUS !!!
      //Form1.Edit1.Text:='Toto'; // <------- celle-ci fonctionne toujours (normal)
    end;
end;

Juste un petit 1 d'écart au clavier entre les deux codes, mais en fait un 1 très important parce qu'il fait appel à un objet différent !

mick605, en remerciement, je te dirai que "la valeur n'attend pas le nombre des années" (tu as comparé nos âges ), que "le fossé inter-générationnel" n'existe pas (quoiqu'on nous le dise parfois) et que la solidarité existe encore !
Merci aussi pour la clarté de tes explications.

Bonne soirée.
Cordialement,
Alain

[Paul TOTH]

ah, je pensais que tu avais vu dans ma réponse "il faut donc un paramètre de type TForm1...ou un TEdit"

j'ai préféré la seconde solution car ta fonction n'est utilisable qu'avec TForm1 (ou un dérivé)...ça présente assez peu d'intérêt à priori de mettre cela dans une unité à part.

[alainvh]

@ Paul Toth

J'ai bien lu tout ton message, mais je n'ai pas su l'interpréter : j'ai des pb de vocabulaire et le monde des objets est encore assez flou pour moi. De plus, j'ai présenté un code-exemple naïf dans un but de simplification.
C'est donc le code de mick605 qui m'a mis sur la voie. Mais en fait, c'est vrai que tu as "dégainé" le premier la bonne réponse.
Merci encore, et excuses.

Bonne nuit
Alain