anchor.diff:      property    OnDragEnter;
       property    OnDragLeave;
       property    OnDragStartDetected;
  +    property    OnClose: TNotifyEvent read FOnClose write FOnClose;
  +    property    OnCreate: TNotifyEvent read FOnCreate write FOnCreate;
       property    OnMouseDown;
       property    OnMouseMove;
       property    OnMouseUp;
       property    OnPaint;
  +    property    OnShow: TNotifyEvent read FOnShow write FOnShow;
       property    OnShowHint;
     end;
   
  
positive.code:     "forms" inside other forms. You should also be able to design such
      frames with the UI designer too. }
    TfpgFrame = class(TfpgAbstractPanel)
    protected
      WindowTitle: TfpgString;
    public
      procedure   AfterConstruction; override;
      procedure   AfterCreate; virtual;
    published
      property    AcceptDrops;
      property    Align;
  
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;
  