unit TileMode;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    TileForms: TMenuItem;
    Whatsit: TMenuItem;
    procedure TileFormsClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// BeginExample: TileMode
// Property: Forms.TCustomForm.TileMode
// Property: Forms.TForm.Tile
// Property: Forms.TCustomForm.FormStyle

// BeginCode
{
This example uses three forms. The first form has its
FormStyle property set to MDIForm. The other two have their
FormStyle properties set to MDIChild and their Visible
properties set to true. Add a main menu component and name
one of the menu items TileForms. This is code for the
TileFormsClick handler.  When the user chooses the TileForms
command, the child forms tile vertically within the MDI frame
form.
}
procedure TForm1.TileFormsClick(Sender: TObject);
begin
  TileMode := tbVertical;
  Tile;
end;
// EndCode
// EndExample: TileMode
end.
