uancestor.pas

来自「用DLL中封装MDI,在DLL文件中封装MDI」· PAS 代码 · 共 43 行

unit uAncestor;

interface

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

type
  TAncestor = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Init;virtual;
  end;

var
  Ancestor: TAncestor;

implementation

{$R *.dfm}

procedure TAncestor.Init;
begin

end;


procedure TAncestor.FormCreate(Sender: TObject);
begin
  if (Self.FormStyle=fsMDIChild) and (Self.WindowState=wsNormal) then begin
    Self.Position:=poDesigned;
    self.top:=(screen.WorkAreaHeight div 2) -(self.Height div 2)-100;
    self.Left:=(screen.WorkAreawidth div 2) -(self.Width div 2)
  end else if Self.FormStyle<>fsMDIChild then
    Self.Position:=poMainFormCenter;
end;

end.