si plusieur form ....Résolu

Question

salut a tout 
 g un petit problème je c qu'il est facile mé je ss un debutant dans delphi est g tros chercher et aucune réponse;donc mon probleme c'est que : g une application que j lé dévlopé par delphi 7 contient plusieurs form ,l'une est principale et les autres secondaires
ma question c'est :quand on clic sur un bouton de la form principale une deuxiem forme s'affiche , mon bute c que tant que la fenetre secondaire est ouverte on peut pas travallié avec la fenetre principal .
comment fair?
merci d'avance

dubois77 · Accepted Answer

Salut
peut être ceci fera ton affaire (aide delphi)

ShowModal,méthode (TCustomForm)
Affiche une fiche sous forme de boîte de dialogue modale.
Syntaxe Delphi :
function ShowModal :Integer;virtual;
Description
Utilisez la méthode ShowModal pour afficher une fiche comme fiche modale.
Dans une fiche modale, l'application ne peut pas continuer às'exécuter jusqu'àce que la fiche soit fermée.Par conséquent, ShowModal ne renvoie rien avant la fermeture de la fiche.Lorsque la fiche se ferme,elle renvoie la valeur de la propriétéModalResult.

Pour fermer une fiche modale,affectez une valeur non nulle à sa propriété ModalResult.

Remarque :	Si la fiche contient des boutons dont la propriétéModalResult a une valeur autre que mrNone,elle se ferme automatiquement lorsque l'utilisateur clique sur l'un de ces boutons et renvoie la valeur de ModalResult comme valeur de renvoi de ShowModal.

Vous pouvez comparer la valeur renvoyée aux valeurs habituellement renvoyées en utilisant la fonction IsAbortResult,IsAnAllResult,IsNegativeResult ou IsPositiveResult globale.

Dubois77

beckerich · Answer

ben oui toto, si la fiche est affichée par Fiche.Show, on peut travailler avec la fiche principale


procedure TForm1.AfficheToto;
var
  F: TToto;
  F := TToto.Create(Self);  // ici, la variable F se colle comme parent Self
                            // donc, Self la détruira à sa destruction
                            // ouhais super zorglub
  F.Show;
end;

beckerich · Answer

ahhhh,

oublié, entre entre le F : TToto et le F := TToto.Create un begin


var
  F: TToto;
BEGIN
  F := TToto.Create(Self);  // ici, la variable F se colle comme parent Self
                            // donc, Self la détruira à sa destruction
                            // ouhais super zorglub
  F.Show;
END;

ramadela · Answer

salut, merci pour la reponse, l'essentiel ca pa été marche, le message dit que ttoto n'est une variable délcaré.
ramadela

cs_yanb · Answer

Salut,
et pourquoi pas utiliser simplement par exemple FormPrincipal.Enabled := False  
et à la fermeture de la fiche secondaire un FormPrincipal.Enabled := True
@+yanb

cs_MAURICIO · Answer

Salut, 

TForm.ShowModal est la solution. 
Par contre, fait attention à ton Français et évite l' écriture SMS!

A+


Composants Cindy pour Delphi

ramadela · Answer

merci Dubois77, yanb et MAURICIO pour vos réponse, je vais essayer par la méthode showmodale puis je vais vous renvoyé la réponse.
RAMADELA

Si plusieur form ....

7 réponses

Votre réponse

Discussions similaires