MDIChild sempre maximizadas, como?

Question

Tem como eu fazer isso? Pois quando tenho uma tela maximizada, e abro outra.. simplesmente as duas ficam em tamanho normal... e eu queria que ficassem sempre maximizadas...

Desde j� agrade�o

[]s

Aasn · Answer

Caro titanus,Configurar a propriedade WindowState dos forms childs para wsMaximized deve resolver! Agora, se vc n�o quiser permitir que elas sejam redimensionadas de maneira nenhuma, ter� que controlar as mensagens de eventos dos forms.[]�sAASN...

Titanius · Answer

Ol� AASN, j� tinha tentado isso anteriormente e nada... o que estou fazendo � no OnActive:

  if WindowState <> wsMaximized then
    WindowState := wsMaximized;

mas to achando isso um �tapa buraco� e tem aquele efeito de maximizando que d� que fica muito ruim, quando se tem muitos forms abertos..

[]s

Massuda · Answer

Pelo que me lembro, esse comportamento � determinado pelo Windows. Acho que d� para voc� usar o evento OnShow ao inv�s do OnActivate....

Titanius · Answer

Ol� massuda, realmente se for do windows complicou... :D

Mas eu tenho que usar no OnActive mesmo.. porque posso ter mais de 5 telas abertas... e ao dar o show funciona, mas depois ele ativa o OnActive, na hora que eu vejo a tela..

Obrigado,

[]s

Massuda · Answer

Entendi... voc� quer que o MDI fique sempre maximizado.

Acho (n�o testei) que uma alternativa seria voc� n�o maximizar o form, mas sim definir o tamanho m�ximo/m�nimo do form (via TForm.Constraints) como sendo o tamanho da �rea dispon�vel no form principal; note que voc� precisa mudar o valor se o form principal for redimensionado. Para obter o tamanho da �rea cliente do form principal...

var
  R: TRect;
...
  GetWindowsRect(SeuFormPrincipal.ClientHandle, R);
  // largura = R.Right - R.Left + 1
  // altura = R.Bottom - R.Top + 1
  // posi��o = R.Top, R.Left
...

Titanius · Answer

Ol� massuda... tentei as deu acesso de viola��o de mem�ria...

tentei:

var 
  R: TRect; 
begin
  GetWindowRect(FrmPrincipal.ClientHandle, R);
  FrmRequisito.Width := R.Right - R.Left + 1;
  FrmRequisito.Height := R.Bottom - R.Top + 1;

no OnShow, OnCreate do Form... e o mesmo erro...

[]s

Massuda · Answer

Se voc� fez isso no form MDI filho, isto deveria funcionar...

var 
  R: TRect; 
begin
  GetWindowRect(FrmPrincipal.ClientHandle, R);
  // poderia ser...
  // GetWindowRect(Application.MainForm.ClientHandle, R);

  Width := R.Right - R.Left + 1;
  Height := R.Bottom - R.Top + 1;

Titanius · Answer

Cara pode pareceer mentira, mas agora funcionou... sabe qual foi a difere�a?
isso daqui:

var
R: TRect;
begin
GetWindowRect(FrmPrincipal.ClientHandle, R);

[b:7c9e9309d4]FrmRequisito.[/b:7c9e9309d4]Width := R.Right - R.Left + 1;
[b:7c9e9309d4]FrmRequisito.[/b:7c9e9309d4]Height := R.Bottom - R.Top + 1;

Estava tentando com o negrito, e nao funcionava... a� fiz tirando a parte do negrito, como vc me mostrou.. e funcionou.. estranho n�!??

Muito obrigado massuda...

[]s

F�rum MDIChild sempre maximizadas, como? #324387