Array
(
)

loucuras com mdi

Aspirante
   - 13 jan 2006

Sei que é meio estranho um MDI como modal. mas a minha questão é a seguite. eu queria apenas deixar o meu form2 dentro do form1, como um MDI normal, só que ele tem que ser showmodal. é meio estranho mas meus motivos é que eu não gostaria de ver o form2 sobreposto ao form1. gostaria de um programa que nem um em java, ou seja, forms MDI com opção modal. além disso gostaria de que ele fosse sem a opção minimizar e maximizar, apenas com o botão fechar. tem como galera?


Dart
   - 13 jan 2006

Cara tem sim... vo te passar como eu uso.

No menu eu chamo ele assim:

if FCad_Produtos = nil then //Verifica se o Form Clientes Recebeu NIL
begin
FCad_Produtos := TFCad_Produtos.Create(self); //Cria o form Clinetes
CadProdutos.Checked:=True;
end
else
FCad_Produtos.Show;

o form fica assim:
no propriedade do form
WindowState = wsMaximized;

procedure TFCad_Produtos.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=Cafree;
FCad_Produtos := nil;

end;

e crio um botao pra fechar o form:
FPrincipal.CadProdutos.Checked:=false;
Close;


dessa forma ele abre maximizado e no menu vc pode intercalar os form ja aberto. Qualquer duvida sobre o q eu postei posta aqui.