uplugbasefrm.pas

一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件

unit uPlugBasefrm;

interface

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

type
  TPlugBasefrm = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    FShowOnTask:Boolean;
    FParentHandle: THandle;
    procedure SetShowOnTask(const Value: Boolean);
    procedure SetParentHandle(const Value: THandle);
  protected
    procedure CreateParams(var Params:TCreateParams);override;
  public
    { Public declarations }
    constructor Create(AOwner:TComponent;AShowOnTask:Boolean;AParentHandle:THandle);Reintroduce;
    property ShowOnTask:Boolean read FShowOnTask write SetShowOnTask;
    property ParentHandle:THandle read FParentHandle write SetParentHandle;
  end;

implementation

{$R *.dfm}

{ TPlugBasefrm }

constructor TPlugBasefrm.Create(AOwner: TComponent; AShowOnTask: Boolean;AParentHandle:THandle);
begin
  ShowOnTask:=AShowOnTask;
  ParentHandle:=AParentHandle;
  inherited Create(AOwner);
end;

procedure TPlugBasefrm.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  if FShowOnTask then
    Params.WndParent :=GetDesktopWindow
  else
  begin
    if ParentHandle<>0 then
      Params.WndParent :=ParentHandle
    else
      Params.WndParent:=0;
  end;
end;

procedure TPlugBasefrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=cafree;
end;

procedure TPlugBasefrm.SetParentHandle(const Value: THandle);
begin
  FParentHandle := Value;
end;

procedure TPlugBasefrm.SetShowOnTask(const Value: Boolean);
begin
  if FShowOnTask <> Value then
  begin
    FShowOnTask := Value;
    // if not (csDesigning in ComponentState) then RecreateWnd;
  end;
end;

end.