Mdi form

cs_aminou Messages postés 4 Date d'inscription jeudi 27 novembre 2003 Statut Membre Dernière intervention 12 mai 2008 - 23 août 2004 à 00:11
Loulibier Messages postés 309 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 24 septembre 2008 - 23 août 2004 à 08:41
salut
pour crée une fenetre mdi j'utilide
formx:=tformx.create(self);
mais si je click n fois sur un button j'ai n form
comment on fais pour obtenir qu'une seule form
merci

1 réponse

Loulibier Messages postés 309 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 24 septembre 2008 2
23 août 2004 à 08:41
Salut,

Donne un Nom à la Form que tu crées et test si elle existe, si elle n'existe pas tu la crée et sinon tu la fait apparaitre.

  if FindComponent('MaFormMdi') = nil then
  begin
    Formx := TForm.Create(Self);
    Formx.Name := 'MaFormMdi';
    Formx.Show;
  end
  else
    TForm(FindComponent('MaFormMdi')).Show;


Bonne Prog,

Olivier
0
Rejoignez-nous