我刚开始学DELPHI，有个问题不明白，如果那位DX知道请指教一下，先谢了！

Question

一个窗口中，放了三个组件：button1、OpenDialog1、RichEdit1各一个，源程序见下，单击按钮，打开对话框，选择桌面，有一个对话框弹出，不知是什么原因？
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    RichEdit1: TRichEdit;
    procedure Button1Click(Sender: TObject);
    procedure OpenFile(FileName: String);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
    OpenDialog1.Execute;
  if OpenDialog1.FileName <> ''  then
    begin        OpenFile(OpenDialog1.FileName);
    end;
end;
procedure Tform1.OpenFile(FileName: String);
{将选择的文件打开，然后设置窗口的标题名称}
begin
  RichEdit1.Lines.LoadFromFile(FileName);
  Caption := FileName;
end;
end.

Answer 1

不会是我用的DELPHI有问题吧？
我是用的DELPHI6

Answer 2

不对啊，我还没有打开文件的，我才点击左边的"桌面"就出来一个对话框（是CPU的代码）
我在编一个文档编辑程序中用到相似的程序，但是更严重：只要打开那个"打开文件"的对话框就出来了这个东西。

Answer 3

没问题，我把你的原代码copy到DELPHI 6 中，运行正常

Answer 4

你点击一下菜单栏上的PAUSE试一下。

Answer 5

请把procedure TForm1.Button1Click(Sender: TObject);改成下面的形式试一下
procedure TForm1.Button1Click(Sender: TObject);
begin
    if OpenDialog1.Execute and (OpenDialog1.FileName <> '') then 
          OpenFile(OpenDialog1.FileName);
end;

Answer 6

不行啊，还是一样的。
我要找过一个DELPHI来用！！！！!