Probleme avec une Application MDI.

Question

J ai un Pobleme avec mon application MDI: Sur la procedure onclick d un bouton je voudrai ouvrir une fenetre MDI (pas de probleme) et si on reclique une autre fois sur le meme bouton au lieu que un nouvelle fenetre s ouvre, jaimerai changer la propriete dun des composants qui se trouve dans la fenetre deja ouverte. J ai essaye sa:

procedure TMainForm.Button11Click(Sender: TObject);
var
  Child: TMDIChild;
begin
if
MDIchildcount = 0 then
begin
  Child := TMDIChild.Create(Application);
end
else
child.memo1.Enabled:=true;
end;

Mais sa ne marche pas et delphi me fait une erreur  a la ligne child.memo1.Enabled:=true;
et me dit 'la variable chid n'est peut etre pas initialise'.
Que dois je faire?
Merci
Michel

cs_Delphiprog · Answer

Au lieu de :
child.memo1.Enabled:= true;

il faut mette :
(ActiveMdiChild as TMdiChild).Memo1.Enabled := True;

Explications :
En utilisant la méthode Create tu obtiens une référence sur une nouvelle fenêtre MDI.
Si tu veux accéder à une fenêtre MDI déjà créée, alors soit tu recherches la référence sur la fenêtre MDI active ou, tout simplement, tu utilises la propriété ActiveMdiChild définie par Delphi.

 May Delphi be with you. 
Delphi advanced

Youyou0214 · Answer

Merci Delphiprog je vais tester sa tout de suite !

vrachid · Answer

bj a tous 
puisque vous parlez de mdi alors voila
j'avais une app dont il y avait une fiche normal j'ai voulu changer et j'ai essayer de faire une fiche mere et d'autre (03 fiches) fille dans la fiche mere il y a un menu pour les appeler , le pb est que ça ne marche pas les fiche ne s'affiche pas , je ne c pas s'il y a une procedure pour ça moi je n'ai fait que déclarer les fiches dans l'inspecteur d'objet (mere est fille...)
merci

Probleme avec une Application MDI.

3 réponses

Votre réponse

Discussions similaires