resourceobjectform.pas

學習資料網上下載

(*======================================================================*
 | ResourceObjectForm                                                   |
 |                                                                      |
 | Ultimate ancestor of object editor forms.  Note that resource editor |
 | forms are derived from TfmResource, which is derived from this form. |
 |                                                                      |
 | * Gold code.                                                         |
 |                                                                      |
 | Version  Date        By    Description                               |
 | -------  ----------  ----  ------------------------------------------|
 | 1.0      06/02/2001  CPWW  Original                                  |
 *======================================================================*)

unit ResourceObjectForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, unitResourceDetails, Menus;

type
//=======================================================================
// TfmResourceObject class

  TfmResourceObject = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    fObject: TObject;
    fResourceModule : TResourceModule;
  protected
    procedure SetObject(const Value: TObject); virtual;
    function GetMenuItem : TMenuItem; virtual;
  public
    procedure PreviewKey (var key : Word; shift : TShiftState); virtual;
    property ResourceModule : TResourceModule read fResourceModule write fResourceModule;
    property Obj : TObject read fObject write SetObject;
    property Menu : TMenuItem read GetMenuItem;
    { Public declarations }
  end;

  TResourceObjectFormClass = class of TfmResourceObject;

var
  fmResourceObject: TfmResourceObject;

implementation

{$R *.DFM}

{ TfmResourceObject }

(*----------------------------------------------------------------------*
 | TfmResourceObject.SetObject                                          |
 |                                                                      |
 | 'Set' method for the 'Object' property                               |
 *----------------------------------------------------------------------*)
procedure TfmResourceObject.SetObject(const Value: TObject);
begin
  fObject := Value;
end;

(*----------------------------------------------------------------------*
 | TfmResourceObject.FormClose                                          |
 |                                                                      |
 | OnClose handler for the form.  Auto-free.                            |
 *----------------------------------------------------------------------*)
procedure TfmResourceObject.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

(*----------------------------------------------------------------------*
 | TfmResourceObject.FormDestroy                                        |
 |                                                                      |
 | OnDestroy handler for the form.  Set the fmresourceObject global     |
 | variable to Nil                                                      |
 *----------------------------------------------------------------------*)
procedure TfmResourceObject.FormDestroy(Sender: TObject);
begin
  fmResourceObject := Nil
end;

(*----------------------------------------------------------------------*
 | TfmResourceObject.GetMenuItem                                        |
 |                                                                      |
 | Stub function for editor forms that have a main menu item.           |
 *----------------------------------------------------------------------*)
function TfmResourceObject.GetMenuItem: TMenuItem;
begin
  result := Nil
end;

procedure TfmResourceObject.PreviewKey(var key: Word; shift: TShiftState);
begin

end;

end.