Question

delphi中OpenDialog的用法

我最近才开始接触Delphi,遇到点问题.
我先设计了一个主菜单,其中有"打开"命令,我编写的程序如下:
unit Unit1; {6.2 MDI图像浏览器}

interface

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

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
F: TMenuItem;
O: TMenuItem;
N: TMenuItem;
W: TMenuItem;
T: TMenuItem;
C: TMenuItem;
A: TMenuItem;
OpenDialog1: TOpenDialog;
procedure EClick(Sender: TObject);
procedure TClick(Sender: TObject);
procedure CClick(Sender: TObject);
procedure AClick(Sender: TObject);
procedure OClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses unit2;
{$R *.dfm}

procedure TForm1.EClick(Sender: TObject);
begin
Close
end;

procedure TForm1.TClick(Sender: TObject);
begin
Tile
end;

procedure TForm1.CClick(Sender: TObject);
begin
Cascade
end;

procedure TForm1.AClick(Sender: TObject);
begin
ArrangeIcons
end;

procedure TForm1.OClick(Sender: TObject);
begin
if OpenDialog1.Execute then
with Tform2.Create(self) do
Open(Opendialog1.FileName)
end;

end.

Unit2还没有写好,在点运行的时候它总是显示:
[Error]Unit1.pas(64);Underclared identifiter:'open'
[Fatal Error]Project.dpr(6):Could not compile used unit'Unit1.pas'

有谁能为我解答一下为什么?怎样才能搞好.

Answer 1

shellexecute(0,'open',pchar(Opendialog1.FileName),nil,nil,sw_show);
?

Answer 2

错误描述：没有声明得标志符号open。
没有这种用法吧。

Answer 3

open()是什么？难道你要用open()打开文件？