modifier parametre objet

Bonjour,

je suis étudiant et je débute en delphi.

j'aimerai savoir si il est possible de modifier les parametre d'un objet (boutton, label,..) d'une unité à partir d'une autre unité.

Par exemple ce que je voudrai faire c'est lorsque je clique sur le bouton valider présent sur une de mes fenetres cela rend invisible un bouton present sur une autre fenetre et fasse apparaitre un texte à la place.

j'ai essayer avec ça :

Code:

---

1 2 3 4 5

procedure TForm3.Buttonvalidation1Click(Sender: TObject); begin TForm1.button1.Visible := false; TForm1.label1.visible := true; end;

---

mais cela na pas fonctionné, ça m'indique qui manque une méthode mais j'ai pas trouvé.

si quelqu'un peu m'aider je suis prenneur.
merci !

Tu doit utiliser From1 et non TForm1, ce qui donnerait :

Code:

---

1 2 3 4 5

procedure TForm3.Buttonvalidation1Click(Sender: TObject); begin Form1.Button1.Visible := False; Form1.Label1.Visible := True; end;

---

Beny

merci Beny.

j'ai essayé avec ton code et cela a fonctionné.

merci.

Citation:

---

Envoyé par zanbom

merci Beny.

j'ai essayé avec ton code et cela a fonctionné.

merci.

---

as-tu compris la différence ?

puis-je te demander dans quel cadre tu étudies Delphi ? choix du prof, de toi ? quel niveau d'étude ?

Citation:

---

Envoyé par Paul TOTH

as-tu compris la différence ?

puis-je te demander dans quel cadre tu étudies Delphi ? choix du prof, de toi ? quel niveau d'étude ?

---

Tform1 est un type de class tform
alors que form1 est une variable de type Tform1
form1 contient toutes les propriete, élèments liés à la fiche
c'est ça ?

j'étudie delphi dans le cadre d'un stage pour ma licence pro. Je dois modifier un programme deja existant pour une supervision.

Citation:

---

Envoyé par zanbom

Tform1 est un type de class tform
alors que form1 est une variable de type Tform1
form1 contient toutes les propriete, élèments liés à la fiche
c'est ça ?

---

oui Form1 est une variable qui dans le cas présent contient l'adresse d'une instance de classe de type TForm1.

bonjour,

voila, je rencontre une difficulté, un peu comme au debut du sujet je veux rendre invisible/visible ou inactif/actif des composant mais cette fois en fonction des étapes d'un grafcet.
(Je travail sur une supervision d'un système automatisé.)

Voila un bout du code que j'ai fais :

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

unit fonction;   interface USES IniFiles, Math, Controls, SysUtils, Forms, Dialogs, Graphics, windows, messages, StdCtrls, ComCtrls, Printers, Winsock, Registry; procedure MontrerCacherBp(bp:Tbutton; ConditionEnabled:boolean);   implementation USES Classes;   procedure MontrerCacherBp(bp:Tbutton; ConditionEnabled:boolean); begin if ConditionEnabled then begin if bp.Enabled then bp.Enabled:= false; end else begin if not bp.Enable then bp.Enable:=true; end;   end;

---

Code:

---

1 2 3 4 5 6 7 8 9

PROCEDURE TraitementSpecifique; begin MontrerCacherBp(Fprincipale.bpChoix1, bit ( W(1,27),1) ); // bit(W(1,27),1)-> etape 0 du g7 MontrerCacherBp(Fprincipale.bpChoix2, bit ( W(1,42),1) ); // bit(W(1,27),1)-> etape 20 du g7   end;

---

Mon programme compile sans erreur mais je sais pas si ça fonctionne, je ne peux pas tester avec un automate.
Pour simulé j'ai remplacé les bits etapes g7 par des variables booleens que je passais à 1 ou à 0 manuellement mais ça n'a pas fonctionné.
je voulais savoir si mon code vous paraissait correcte, ou si vous connaissez d'autres methodes pour réaliser ce que je souhaite.

Ca a l'air de marcher.
Tu peux simplifier le code de MontrerCacherBp comme suit :

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

unit ex01a;   interface   uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;   type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end;   var Form1: TForm1;   implementation   {$R *.dfm}   procedure MontrerCacherBp(bp : Tbutton; ConditionEnabled:boolean); begin if ConditionEnabled then bp.Enabled := not bp.Enabled ; end;   procedure TraitementSpecifique; begin MontrerCacherBp(Form1.Button2, true); MontrerCacherBp(Form1.Button3, false); end;   procedure TForm1.Button1Click(Sender: TObject); begin TraitementSpecifique ; end;   end.

---