iwframe.pas

Delphi 应用举例

unit IWframe;

interface

uses
  SysUtils, Classes, Controls, IWControl,IWHTMLTag;

type
  TIWframe = class(TIWControl)
  private
    fAutoScroll:boolean;
    fSrc:string;
  protected
    { Protected declarations }
  public
    function RenderHTML: TIWHTMLTag; override;
  published
    property autoScroll:boolean read fAutoScroll write fAutoScroll ;
    property src:string read fsrc write fsrc;
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('test', [TIWframe]);
end;
function TIWframe.RenderHTML: TIWHTMLTag;
begin
  result:=TIWHTMLTag.CreateTag('iframe');
  result.AddIntegerParam('width',width);
  result.AddIntegerParam('height',height);
  result.AddBoolParam('scroll',fAutoScroll);
  result.AddStringParam('src',fsrc);
  
end;
end.