moduleaction.pas

群星医药系统源码

unit ModuleAction;

interface

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

type
  TModlAction = class(TAction)
  private
  	FActionID: Integer;
    FModuleFile: String;
    FFlag1, FFlag2: integer;
    FRemark: String;
  protected
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;

    function 	HandlesTarget(Target: TObject): Boolean; override;
    procedure UpdateTarget(Target: TObject); override;
    function 	Update: Boolean; override;
  published
  	property ActionID: Integer read FActionID write FActionID default 0;
    property ModuleFile: String read FModuleFile write FModuleFile;
    property Flag1: Integer read FFlag1 write FFlag1 default 0;
    property Flag2: Integer read FFlag2 write FFlag2;
    property Remark: String read FRemark write FRemark;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterActions('Module', [TModlAction], nil);
end;

{ TModlAction }

constructor TModlAction.Create(AOwner: TComponent);
begin
  inherited;
  FActionID := 0;
  FFlag1 := 0;
  FFlag2 := 0;
  FModuleFile := '';
  FRemark := '';
end;

destructor TModlAction.Destroy;
begin
  inherited;
end;

function TModlAction.HandlesTarget(Target: TObject): Boolean;
begin
  Result:= True;
end;

procedure TModlAction.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
{  if (Operation = opRemove) and (AComponent = FUserRights) then
    FUserRights := nil;}
end;

function TModlAction.Update: Boolean;
begin
  Result:= inherited Update;
end;

procedure TModlAction.UpdateTarget(Target: TObject);
begin
  // 判断当前可用状态
  inherited UpdateTarget(Target);

end;

end.