aboutview.pas

Delphi利用MVC开发的典型例子

unit AboutView;

// This code was generated by the EasyMVC OTA Wizard
// www.eazisoft.com

interface
uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, StdCtrls, ComCtrls, ExtCtrls, Forms, patterns;

type
  TViewAbout = class(TFORM, iObserver)
    CloseButton: TButton;
    GroupBox1: TGroupBox;
    ProgramIcon: TImage;
    ProductName: TLabel;
    Bevel1: TBevel;
    ProductLabel: TLabel;
    VersionMemo: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    procedure UpdateView(o: TObject);
  end;


implementation

{$R *.dfm}

procedure TViewAbout.UpdateView(o: TObject);
begin
  {write your code here}
end;

procedure TViewAbout.FormCreate(Sender: TObject);
begin
  with VersionMemo do
  begin
    ProgramIcon.Picture.Assign(Application.Icon);
    Lines.Add('');
    Lines.Add('Version 1.0');
    Lines.Add('');
    Lines.Add('www.eazisoft.com');
    Lines.Add('All Rights Reserved');
    Lines.Add('');
  end;
end;

end.