You can try:
TileWindows(0, MDITILE_HORIZONTAL, Screen.WorkAreaRect,
Length(MyHandles), MyHandles[0]);
or
TileWindows(0, MDITILE_HORIZONTAL, Screen.WorkAreaRect, High(MyHandles)
+ 1, MyHandles[0]);
Simple Test works for me:
uses
..., windows, LCLType;
procedure TForm1.Button1Click(Sender: TObject);
var
Wnds: array[0..1] of HWND;
begin
Wnds[0] := Handle;
Wnds[1] := Form2.Handle;
TileWindows(0, MDITILE_HORIZONTAL, Screen.WorkAreaRect, Length(Wnds),
Wnds[0]);
end;
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
