Discussion :

[bionicleman]

Bonjour bonjour,
j'suis entrain de développer un petit programme (rien d'anormal jusqu'ici ) 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 :

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

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 :

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

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

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

[Cl@udius]

Salut

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

Code :

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

1
2
3
4
5
6
7
 
uses Unit1;
 
procedure TForm2.CheckBox6Click(Sender: TObject);
begin
  Form1.btn_rstrui.Visible := CheckBox6.Checked;
end;

@+ Claudius

[bionicleman]

Re,
Merci de cette rapidité et de cette pertinence

Ca marche

encore merci

[Latoof]

Salut

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

Code :

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

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)

[Lung]

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