Bonjour bonjour, voilà j'aimerai tester si une fiche est ouverte avant d'ouvrir la seconde ?!

petit exemple concret:

procedure TF_Principale.xxxxxxxxClick(Sender: TObject);
begin

        if tf_yyyyyyyy.???? then           // comment tester si yyyyy est ouvert ?
            begin                                      
                tf_yyyyyyyy.close;             
            end
application.createform(tf_xxxxxxxx, f_xxxxxxxx);
f_xxxxxxxx.show;
end;

Merci de vos réponses :)

Salut

Deux Fiches et deux boutons sur Form 1

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
If Form2.Showing then showmessage('oki');
end;

Et la c'est magique .

Pssss: Un autre truc super extraordinaire : la touche F1

Ah puis un ptit truc pour la route : pense à mettre un titre explicite, ca t'évitera de te faire engueuler

j'aurai voulu automatiser le tout et faire qque chose de propre en fait.

procedure TF_Principale.FactureClick(Sender: TObject);
begin
  if F_GestionDevis.Showing = true then
      begin
      F_GestionDevis.Close;
    end;
application.createform(tf_facture, f_facture);
f_facture.show;
end;

Pourquoi ça marche pas comme ça ?
ps: ma touche f1 marche pas, ça tente de dl qqchose sur le net mais ça veut pas :S

Bonjour,

Pourquoi faire de la création dynamique de f_facture?
Autant laisser delphi créer la fiche dés le début. Je pense que c'est ton create qui ne fonctionne pas

Bon courage

dynamique ? bon j'ai du mal m'exprimer. je reprends :

Application MDI, deux feuilles MDIChild : Facture et devis. En fait je voulais que chaque fois qu'on ouvre une d'elle, ça ferme l'autre. Tout ça pour éviter d'ouvrir plusieurs feuilles de chaque. Je m'y prend peut-être pas du tout comme il faut..

procedure TMainForm.ClickOpenFactureForm(Sender : TObject);
begin
  DevisForm.Hidde; { cache devis }
  FactureForm.Reset; { procedure qui reinitialise l'etat de FactureForm }
  FactureForm.Show; { affiche facture }
  FactureForm.BringToFront; { met au premier plan facture }
end;

procedure TMainForm.ClickOpenDevisForm(Sender : TObject);
begin
  FactureForm.Hidde; { cache facture }
  DevisForm.Reset; { procedure qui reinitialise l'etat de DevisForm }
  DevisForm.Show; { affiche devis }
  DevisForm.BringToFront; { mets au premier plan devis }
end;

_____________________________________________________
il y a deux choses infinie, l'univers et la connerie humaine, mais pour l'univers je suis pas sur...

access violation. Je pense que ça vient du fait que vu que devis n'est pas forcément lancé, toi tu tente de cacher quelque chose qui n'existe pas encore. C'est la tout mon problème, faire une condition pour voir si la fiche existe. Mais showing me renvoie un message d'erreur. A moins que l'erreur ne vienne pas de là mais bon...

Il existe quelque chose qui ressemble à "On error resume next" sur delphi ? comme sur vb ?

personne?