gettreeinfou.pas

来自「source for card readers」· PAS 代码 · 共 33 行

unit GetTreeInfoU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GetInfoTemplateU, StdCtrls, Spin, ExtCtrls;

type
  TfrmGetTreeInfo = class(TfrmGetInfoTemplate)
    lblProtea: TLabel;
  protected
    function GetSightType: string;
  public 
    property SightType: string read GetSightType;
  end; // end TfrmGetTreeInfo = class(TfrmGetInfoTemplate)

var
  frmGetTreeInfo: TfrmGetTreeInfo;

implementation

{$R *.dfm}

{ TfrmGetTreeInfo }

function TfrmGetTreeInfo.GetSightType: string;
begin
  Result := 'Protea Curvata';
end; // end function TfrmGetTreeInfo.GetSightType

end. // end unit GetTreeInfoU