Interagir d'une form à une seconde

Bonjour bonjour,
j'suis entrain de développer un petit programme (rien d'anormal jusqu'ici :P) mais il se trouve que j'ai besoin de les faire interagir :
sur ma Form2 j'ai une checkbox et sur Form1 un bouton, je voudrais que lorsque la checkbox est checkée le bouton soit normal, et lorsqu'elle ne l'est pas le bouton n'apparaisse pas.

J'ai un début de quelque chose :

sur ma Form2 :

btn_rstrui est en variable globale.

Code:

---

1 2 3 4 5 6 7

procedure TForm2.CheckBox6Click(Sender: TObject); begin if checkbox6.checked= false then btn_rstrui:=false else btn_rstrui:=true; end;

---

Je pensais faire dans ma Form1 :

Code:

---

1 2	if bnt_rstrui:=false then bitbtn22.visible:=false

---

ou quelque chose du genre... Sauf que ça ne marche pas :aie:
Que faire ?
Merci d'avance.

Salut

Pourquoi ne pas agir directement sur la propriété Visible du bouton ?

Code:

---

1 2 3 4 5 6 7

uses Unit1;   procedure TForm2.CheckBox6Click(Sender: TObject); begin Form1.btn_rstrui.Visible := CheckBox6.Checked; end;

---

@+ Claudius

Re,
Merci de cette rapidité et de cette pertinence :mrgreen:

Ca marche

encore merci ;)

Citation:

---

Envoyé par Cl@udius

Salut

Pourquoi ne pas agir directement sur la propriété Visible du bouton ?

Code:

---

1 2 3 4 5 6 7

uses Unit1;   procedure TForm2.CheckBox6Click(Sender: TObject); begin Form1.btn_rstrui.Visible := CheckBox6.Checked; end;

---

@+ Claudius

---

Hello.

Comment fais tu pour "intégrer" ta variable globale dans le Formulaire ? (dire au formulaire qu'on veut un object extérieur sur la fiche)

[Fichier][Utiliser l'unité ...]

;)