Modifier les propriétés des composants d'une autre form

Bonjour,
Voilà, j'utlilise 2 fiches : la première : FArticle pour l'affichage des enregistrements de ma table Article à travers des DBEdits.

La deusième Fiche contient un bouton Valider modification qui a pour mission d'activer le panel contenant les DBEDIT pour donner la main à l'utilisateur.

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure TFChoiceModif.suiButton1Click(Sender: TObject); begin FArticle.PanDesA.Enabled:=true; FArticle.ValidModif.Enabled:=true; FArticle.Annuler.Enabled:=true; FArticle.Label1.Font.Color:=clred; FArticle.Label1.Caption:='Panneau de modification activé'; FChoiceModif.Close;   end;

---

Le problème est que ces instructions n'ont pas l'air de marcher, car en cliquant sur le bouton en question , le panel ne s'active pas...

J'ai l'impression que les instructions ne sont pas transmises à la fiche FArticle

Merci de m'éxpliquer le problème

bonjour,
je pense qu'il faudrait montrer ta 2 ème form en faisant simplement
apparaitre ta forme par un FArticle.showmodal;

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TFChoiceModif.suiButton1Click(Sender: TObject); begin FArticle.PanDesA.Enabled:=true; FArticle.ValidModif.Enabled:=true; FArticle.Annuler.Enabled:=true; FArticle.Label1.Font.Color:=clred; FArticle.Label1.Caption:='Panneau de modification activé'; FArticle.showmodal; FChoiceModif.Close; end;

---

Bonjour à toutes et à tous,

@ Souminet, tu appelles ta deuxième forme par un show placé dans le onclick de ta 1ère forme et sur cette forme 1, tu mets un tradiobutton (rb3) qui active le panel.

Dans ta 2 ième forme, tu mets une condition genre :

Code:

---

1 2 3 4 5

procedure TForm2.FormShow(Sender: TObject); begin if form1.rb3.Checked then pandesA.Enabled := true else pandesA.Enabled := false; end;

---

Sauf erreur de ma part.

@+,

Cincap

Bon, ta 1ère fiche se nomme bien Farticle (Fiche principale !) et appelle la 2 ième qui se nomme Fchoicemodif.

Je suppose que sur ta 1ére fiche, dans le onclik, tu appelles la 2ième par :

Code:

---

1 2	Fchoicemodif.show

---

Sur ta 2ième fiche, tu as un bouton qui commande ton Tpanel qui se trouve sur la 1ère :

Code:

---

1 2	farticle.PandesA.Enabled := not farticle.PandesA.Enabled;

---

Ceci fonctionne si l'ordre de tes fiches est correct ! sinon vérifies l'ordre de tes 2 fiches.

@+,

Cincap