Buscar por:

Criando form dinamicamente - mdi

Código

// A coisa muda um pouquinho quando você está trabalhando em um projeto MDI, 

basicamente o

// controle que você tem de executar é o mesmo, mas as características do projeto 

podem lhe

// trair.

// Primeiro que em um projeto MDI não podem existir forms não visíveis, ou seja, assim 

que

// um determinado form é criado ele já se torna visível, não é necessário um SHOW ou 

// SHOWMODAL para fazer isso, portanto não existe outro caminho senão criar todos os 

for

// Todos os passos descritos no exemplo(SDI) acima são válidos aqui também, mas para 

que o

// seu projeto caracterize-se como MDI você tem de mudar a propriedade FormStyle dos 

forms

// do projeto como segue :

// O form principal da aplicação tem de estar como fsMDIForm.

// Os outros forms que fazem parte da aplicação como fsMDIChild.

// Algum form especial, como o form onde o usuário configura a impressora, deve ser 

deixado

// como fsNormal.

// Vá até Project/Options e deixe apenas o form principal como AutoCreate.

// Nesse momento você retirou do Delphi a obrigação de criar o Form2, se você não o 

criar e

// em algum momento fizer referência a ele isso deve causar um erro.

implementation

{$R *.DFM}

uses Unit2;

procedure TForm1.Form21Click(Sender: TObject);

begin

Form2 := TForm2.Create(self);

end;

end.

// Uma das primeiras coisas diferentes é que não é mais necessário usar oShow.

// Alguns cuidados devem ser tomados quando trabalhamos com uma aplicaçãoMDI.

// Primeiro não existe porque ficar discutindo como evitar que o usuário fique abrindo

// muitos forms ao mesmo tempo, já que está é a principal qualidade de um projeto MDI.