{-----------------------------------------------------------------------------
 Unit Name: DUFrames
 Author:    Sebastian Hütter
 Date:      2006-08-01
 Purpose:   TFrame replacement, AutoScroll and Display(Parent);

 History:   2006-08-01 initial release
-----------------------------------------------------------------------------}
unit DUFrames;

interface

uses Classes, Controls, Forms;

type
  TDUFrame = class(TForm)
  public
    constructor Create(AOwner: TComponent); override;

    procedure Display(AParent:TWinControl);   
  end;


implementation

{ TFrame }

constructor TDUFrame.Create(AOwner: TComponent);
begin
  inherited;
  AutoScroll:= true;
  HorzScrollBar.Tracking:= true;
  VertScrollBar.Tracking:= true;
  BorderStyle:= bsNone;
  Align:= alClient;
end;

procedure TDUFrame.Display(AParent: TWinControl);
begin
  Parent:=AParent;
  Left:=0;
  Top:=0;
  Show;
end;

end.