decortorform.pas

来自「设计模式delphi版给想学delphi的朋友一个很有价值的参考」· PAS 代码 · 共 46 行

unit DecortorForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, DecortorUnit1,
  StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetContents(content: TVisualComponent);
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.SetContents(content: TVisualComponent);
begin
//.....
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  textview: TTextView;
  aBorderDecorator: TBorderDecortor;
  aScrollDecorator: TScrollDecortor;
begin
  textview := TTextView.Create;
  aBorderDecorator := TBorderDecortor.Create(textview, 1);
  aScrollDecorator := TScrollDecortor.Create(aBorderDecorator);
  SetContents(aScrollDecorator);
end;

end.