Gestion des fenêtre mdi fille unique

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 063 fois - Téléchargée 38 fois

Contenu du snippet

Cette fonction permet de gérer les fenêtre MDI fille unique:
- si la fiche est déjà ouverte, elle passe au premier plan
- si elle était minimisée, elle reprend une taille normale
- si elle n'exite pas, elle est créée
Arguments : FormClass: classe de la fiche à ouvrir

Source / Exemple :


function OpenChild(FormClass: TFormClass): TForm;
var
  i : Integer;
begin
  Result := nil;
  for i := 0 to Application.MainForm.MdiChildCount - 1 do
  begin
    if Application.MainForm.MdiChildren[i].ClassType = FormClass then
    begin
      //On mémorise directement MdiChildren[i] car l'ordre
      //du tableau est changé ensuite par BringToFront
      Result := Application.MainForm.MdiChildren[i];
      break;
    end;
  end;
  if Result <> nil then
  begin
    //si déjà créé et pas visible alors on remet la fenêtre au 1er plan
    if Result.WindowState = wsMinimized then
       Result.WindowState := wsNormal;
    Result.BringToFront;
  end
  else
    //sinon on crée la fenêtre
    Result := FormClass.Create(Application.MainForm);
end;

A voir également

Ajouter un commentaire

Commentaires

w_divers
Messages postés
1
Date d'inscription
lundi 19 mars 2007
Statut
Membre
Dernière intervention
22 septembre 2008
-
Bonjour,

Je voulais savoir comment utiliser cette fonction dans ma form.

Merci pour votre aide.
basta690
Messages postés
1
Date d'inscription
lundi 24 juillet 2006
Statut
Membre
Dernière intervention
9 mai 2007
-
merci bin
cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
24 -
Cet exemple met en avant le concept d'utilisation des références de classe, bien trop souvent négligé. C'est un bon point.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.