Fórum form mdiChild minimizada #326677

procedure TForm2.FormCreate(Sender: TObject);
var parametros: TMinimizedMetrics; //estrutura da api que define o tamanho das forms iconizadas
    tam: Cardinal; //variavel que guarda o tamanho desa estrutura
begin
  tam :=  SizeOf(parametros); //setando o tamanho
 
  parametros.cbSize := tam;  //essa parametro tem que ser igual ao tamanho
  parametros.iWidth := 400;  //largura da form minimizada
  parametros.iHorzGap := 1; //distancia horizontal entre os icones
  parametros.iVertGap := 1; //distancia vertical entre os icones
  parametros.iArrange := ARW_HIDE;  //o que faz quando minimiza (existem varias opções)
 
  SystemParametersInfo(SPI_SETMINIMIZEDMETRICS, tam, @parametros, 0 );
  //chama a api (esta api faz muitas outras coisas dependendo da estrutura passada pra ela)
end;