Posición de los formularios MDIChild minimizados

[ecfisa]

Hola.

Un ejemplo:

Código Delphi [-]
...
uses Unit2;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Form2.WindowState = wsMinimized then
    SetWindowPos(Form2.Handle,
                 0,
                 Random(300), // X
                 Random(200), // Y
                 GetSystemMetrics(SM_CXMINIMIZED),
                 0,
                 0);
end;

Resultado:


Saludos