étape 1: avec les cadres
étape 2: avec les fsMDIForm - fsMDIChild
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18 procedure TFPrincipal.MenuClick(Sender: TObject); begin FreeAndNil(select_frame); if Sender = Button1 then select_frame := TFrmEcran1.Create(self) else if Sender = Button2 then select_frame := TFrmEcran2.Create(self) else if Sender = Button3 then select_frame := TFrmEcran3.Create(self) else if Sender = Button4 then select_frame := TFrmEcran4.Create(self) else Exit; select_frame.Parent := PanelFrame; select_frame.Afficher; end; procedure TFPrincipal.FormDestroy(Sender: TObject); begin FreeAndNil(select_frame); end; end.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 procedure TMainForm.SpeedButton3Click(Sender: TObject); f:Tform; begin f:= Tform1.create(Application); end; procedure TMainForm.Fermer(Sender: TObject); begin f.close end;
Partager