Discussion :

[GillesT60]

Bonjour ,
Je cherche a rendre Modal une fenetre de type MDIChild
Merci

[Yurck]

C'est à l'ouverture de la fiche que tu dois le dire
Ta fiche ne dois pas être autocréée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Form1 := TForm1.create(application)
try
  Form1.showModal;
finally
  Form1.release;
end;

PS : ne pas z'ouoblier de positionner FormStyle à fsNormal.

[GillesT60]

C'est la ou le bas blesse je ne veut pas d'une form en fsNormal Je voudrais quelle reste dans la localisation de la form mère .

[Yurck]

Fais une recherche sur DVP

http://www.developpez.net/forums/d29...es-mode-modal/

[ShaiLeTroll]

Bonjour ,
Je cherche a rendre Modal une fenetre de type MDIChild
Merci

C'est juste l'un et l'autre l'opposé, ... une fenêtre MDIChild a un container qui est le MDIForm, alors qu'une fenêtre Modal est libre sans container (si l'on exclu l'application et le bureau de la considération)

Mais sinon, allez ... dans une fenêtre ouverte en MDI, tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TFrmTestDivers.undoMDIClick(Sender: TObject);
begin
   Self.WindowState := wsNormal;
   Self.FormStyle := fsNormal;
   Self.SetBounds(Application.MainForm.Left + 10, Application.MainForm.Left + 10, Application.MainForm.Width, Application.MainForm.Height);
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TFrmTestDivers.undoMDIToModalClick(Sender: TObject);
begin
   Self.WindowState := wsNormal;
   Self.FormStyle := fsNormal;
   Self.SetBounds(Application.MainForm.Left + 10, Application.MainForm.Left + 10, Application.MainForm.Width, Application.MainForm.Height);
   Self.Hide();
   Self.ShowModal();
end;

Seul l'instanse Self est concerné par le changement de FormStyle, ensuite l'inverse, je n'ai pas tenté, mais à voir ...