Discussion :

[souminet]

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 :

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

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

[totolala]

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

Code :

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

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;

[cincap]

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 :

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

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

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

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

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 :

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

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