anchor.diff:      "forms" inside other forms. You should also be able to design such
       frames with the UI designer too. }
     TfpgFrame = class(TfpgAbstractPanel)
  +  private
  +    FOnClose: TNotifyEvent;
  +    FOnShow: TNotifyEvent;
  +    FOnCreate: TNotifyEvent;
     protected
       WindowTitle: TfpgString;
  +    procedure   HandleShow; override;
     public
       procedure   AfterConstruction; override;
       procedure   AfterCreate; virtual;
  +    procedure   Close;
  +    procedure   Show;
     published
       property    AcceptDrops;
       property    Align;
  
positive.code:   // do nothing here
  end;
  
  
  {TfpgAbstractPanel}
  
  
negative.code: 
  { TfpgFrame }
  
  procedure TfpgFrame.HandleShow;
  begin
    inherited HandleShow;
    HandleAlignments(0, 0);
    if Assigned(FOnShow) then
      FOnShow(self);
  end;
  
  procedure TfpgFrame.AfterConstruction;
  begin
    AfterCreate;
    inherited AfterConstruction;
    if Assigned(FOnCreate) then
      FOnCreate(self);
  end;
  
  procedure TfpgFrame.AfterCreate;
  