view.pas

来自「详细说明:毕业论文中关于小型宾馆管理系统的详细设计毕 业论文中关于小型宾馆...」· PAS 代码 · 共 44 行

unit view;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtnrs, StdCtrls, ExtCtrls, Menus;

type
  TfrmView = class(TForm)
    OLe: TOleContainer;
    Panel1: TPanel;
    btnOK: TButton;
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     function ShowModal(filename:string): Integer; reintroduce; overload;
  end;

//var
  //frmView: TfrmView;

implementation


{$R *.dfm}
function TfrmView.ShowModal(filename:string): Integer;
begin

    ole.AllowInPlace:=true;
    ole.AutoVerbMenu:=true;
    ole.CreateLinkToFile(filename,false);
    //Ole.DoVerb(ovShow);
    Result:=inherited ShowModal;
end;
procedure TfrmView.btnOKClick(Sender: TObject);
begin
Close;
end;

end.