delphi中OpenDialog的用法

来源:百度知道 编辑:UC知道 时间:2024/05/13 10:09:51
我最近才开始接触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);

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

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

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