Gestion des fenêtre mdi fille unique

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 539 fois - Téléchargée 40 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
22 sept. 2008 à 10:32
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
9 mai 2007 à 23:27
merci bin
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
6 janv. 2003 à 00:23
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.