Discussion :

[zanbom]

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 :

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

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 !

[benymypony]

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

Code :

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

1
2
3
4
5
procedure TForm3.Buttonvalidation1Click(Sender: TObject);
begin
  Form1.Button1.Visible := False;
  Form1.Label1.Visible := True;
end;

Beny

[zanbom]

merci Beny.

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

merci.

[Paul TOTH]

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 ?

[zanbom]

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.

[Paul TOTH]

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.

[zanbom]

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 :

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

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

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.

[ALWEBER]

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

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