Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Fenetre MDI [ Archives / J'AI BESOIN D'AIDE !!!! :O ] (develomagaly)

lundi 27 mars 2006 à 13:51:36 | Fenetre MDI

develomagaly

VOila j'ai une fenetre parents avec des fenetres Mdichild qui s'ouvre en cliquant sur le menu.
Le but est de ne pas pouvoir ouvrir deux fenetres filles en meme temps. Quand l'utilisateur veut ouvrir une autre fenetre que celle qui est demandé, on lui propose si il veut fermer la fenetre en cours .

Je voudrais juste savoir comment récupérer le nom ou la Tform de la fenetre en cours ?

Mon code
function Tcommun.Ouverture_fenetre_menu():boolean ;
begin

  if fm_MenuDossier.MDIChildCount > 0 then begin  
   // Je met un message pour demander si il veut fermer le fenetre en cours
      // Si oui 
         --> il faut que je fasse un .close pour la fenetre mais le hic comment recuperer le nom ?
      result :=true;
      // si non 
         --> result :=false;
  end else begin
    result:=true ;
  end;
end;


lundi 27 mars 2006 à 14:18:27 | Re : Fenetre MDI

cirec

Membre Club Administrateur CodeS-SourceS
Réponse acceptée !

Salut,
Essaye comme ceci :


procedure TfrMain.Button3Click(Sender: TObject);
 var i : integer;
begin
for i:=0 to MDIChildCount - 1 do
  If MDIChildren[i].Active Then
  Begin
  Case MessageBox(Application.MainForm.Handle , {Déclaration de la MessageBox}
       PChar(Format('La fenêtre %s est ouverte voulez-vous la fermer ?'
       ,[MDIChildren[I].Caption ]))
       , PChar('Fermer la fenêtre MDI'), 36) Of
    IDYES     :MDIChildren[i].Close;
    IDNO      :Exit;
  End;
  // autre traitements
End;


@+
Cirec



Cette discussion est classé dans : end, fenetre, cours, begin, result


Répondre à ce message

Sujets en rapport avec ce message

Arbre équilibré [ par Pallas4 ] Bonjour j'aimerais programmé un arbre équilibré maismon programme plante. IP cute me dit que des données sont dans le tas mais ne peuvent être atteint Le plus petit entier non nul [ par seast ] Bonjour,voici la fonction qui me permet de trouver le plus petit entier non nul parmi 3 possibilités.Y a-t-il plus simple ? ou plus rapide ?Si je desi openoffice.org(ooo) et la couleur de fond d'une cellule [ par Tiekula ] J'arrive a ouvrir un fichier exel avec ooo mais pas a trouver la couleur d'une cellule donnée de ce fichier! mon code : unit Unit1; interface use Composant [ par cricri_forever ] Quelqu'un pourrait m'aider a expliquer ce code et si il a moyen de le simplifier encore...procedure TVersion.ChangeVersionResult(Value: boolean);begin pb sur delphi a la compilation need help !!! [ par shark1664 ] voila mon code c'est une requete qui récupère dans une table une ligne compète quand le code est pareil que ce que l'utilisateur a siasie et au niveau Exclure des caractères d'un string [ par DRJEROME ] bonjour,je n'ai pas accès au "Snippets" de mon ordinateur principal alors que j'ai accès par un ordinateur d'un collègue ... bizarre !je voulais juste Txt2BMP ? [ par MiniProgramer ] Hij ai une Function de google mais il ya des problemes !?//-- TBitmap to String -----------------------function BmpToTxt(const ABitmap: TBitmap): stri pilotage ouverture/fermeture d'une barrière de sécurité pour boitier TC/USB16IO [ par Wiska ] Bonjour, Avant tout, voici la description de ce fameux boitier: "Le module TC/USB-16IO est un module d'interface pc, comportant 8 entrées logiques iso Bouton Stop [ par watrem ] Bonsoir J'ai sur ma forme un bouton (TSpeedButton) qui est sensestopper une operation en cours , or lorsque je demarre mon operation et que je veut l' Evènements d'un enfant dans l'inspecteur d'objet [ par Francky23012301 ] Salut à tous,J'ai un ptit soucis : j'ai fais un composant qui créer d'autres composants ent tant qu' enfants. Dans l'inspecteur d'objet, les propriét


Nos sponsors

Sondage...

CalendriCode

Novembre 2008
LMMJVSD
     12
3456789
10111213141516
17181920212223
24252627282930

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,577 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.