aboutctrl.pas

Delphi利用MVC开发的典型例子

unit AboutCtrl;

interface
uses
  SysUtils, forms, buttons, classes, controls, patterns,
  AboutView;

type
  TControllerAbout = class(TController)
    view: TViewAbout;
  protected
    procedure DoCommand(Command: string; const args: string = ''); override;
  public
    constructor Create;
    destructor Destroy; override;
    procedure OnClick(Sender: TObject); //for ieventListener
    procedure OnMouseEvent(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  end;



implementation
uses commandlist;

constructor TControllerAbout.Create;
begin
  inherited;
  Application.CreateForm(TViewAbout, view);
end;

destructor TControllerAbout.destroy;
begin
  inherited;
end;

procedure TControllerAbout.DoCommand(Command: string; const args: string = '');
begin
  if command = CMD_SHOW_ABOUT then
  begin
    with TViewAbout.create(nil) do
    begin
      showModal;
      free;
    end
  end;
end;

procedure TControllerAbout.onClick(Sender: TObject);
begin

end;

procedure TControllerAbout.OnMouseEvent(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin

end;


initialization
  ControlCenter.RegController(TControllerAbout.Create);

end.