mehrere Formulare gleichzeigig

[bitsetter]

Hi,

die obersten beiden Fenster könnte man eventuell schon mal mit der Funktion TileWindows() nebeneinander setzen.

Delphi-Quellcode:

var
  r: TRect;
  WndList: array[0..1] of HWND;
begin
  r:= screen.WorkAreaRect;
  inc(r.Left, 100);
  inc(r.Top, 100);
  dec(r.Bottom,300);
  dec(r.Right, 100);
  WndList[0]:= self.Handle;
  WndList[1]:= form2.Handle;
  TileWindows(0, MDITILE_VERTICAL, @r, high(WndList)+ 1, @WndList);

So in etwa.