loucuras com mdi
13/01/2006
0
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?
Aspirante
Curtir tópico
+ 0
Responder
Posts
13/01/2006
Dart
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.
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.
Responder
Clique aqui para fazer login e interagir na Comunidade :)