创建delphi记事本：打开并保存

在使用各种Windows应用程序和Delphi时，我们已经习惯于使用其中一个标准对话框来打开和保存文件、查找和替换文本、打印、选择字体或设置颜色。...

在使用各种Windows应用程序和Delphi时，我们已经习惯于使用其中一个标准对话框来打开和保存文件、查找和替换文本、打印、选择字体或设置颜色。

在本文中，我们将研究这些对话框的一些最重要的属性和方法，重点是打开和保存对话框。

通用对话框位于“组件”选项板的“对话框”选项卡上。这些组件利用标准Windows对话框（位于\Windows\System目录中的DLL中）。要使用通用对话框，我们需要在窗体上放置适当的组件。通用对话框组件是非可视的（没有可视的设计时界面），因此用户在运行时不可见。

topendialog和tsavedialog

“文件打开”和“文件保存”对话框有几个常用属性。文件打开通常用于选择和打开文件。从用户处获取文件名以保存文件时，将使用“文件保存”对话框（也用作“另存为”对话框）。TopEndDialog和TSaveDialog的一些重要特性包括：

选项属性对于确定长方体的最终外观非常重要。例如，一行代码如下：with OpenDialog1 do Options:=Options+[ofAllowMultiSelect，ofilemustexist]；将保留已设置的选项，并允许用户在对话框中选择多个文件，如果用户尝试选择不存在的文件，将生成错误消息。
InitialDir属性用于指定显示文件对话框时用作初始目录的目录。下面的代码将确保打开对话框的初始目录是应用程序启动目录。SaveDialog1.InitialDir:=ExtractFilePath（Application.ExeName）；
Filter属性包含用户可以从中选择的文件类型列表。当用户从列表中选择文件类型时，对话框中仅显示选定类型的文件。可以在设计时通过“过滤器编辑器”对话框轻松设置过滤器。
若要在程序代码中创建文件掩码，请为过滤器特性指定一个值，该特性由描述和由竖线（管道）字符分隔的掩码组成。如下所示：OpenDialog1.Filter:=“文本文件（*.txt）|*.txt |所有文件（*.*）|*.*”；
文件名属性。用户单击对话框中的“确定”按钮后，此属性将包含所选文件的完整路径和文件名。

处决

要实际创建和显示公共对话框，我们需要在运行时处理特定对话框的Execute方法。除TFindDialog和TReplaceDialog外，所有对话框都以模式显示。

所有常用对话框都允许我们确定用户是否单击“取消”按钮（或按ESC键）。由于如果用户单击OK按钮，Execute方法将返回True，因此我们必须捕获对Cancel按钮的单击，以确保给定代码未执行。

if OpenDialog1.Execute then ShowMessage(OpenDialog1.FileName);

此代码显示“文件打开”对话框，并在“成功”调用执行方法（当用户单击“打开”时）后显示选定的文件名。

注意：如果用户单击“确定”按钮、双击文件名（在文件对话框中）或按键盘上的Enter键，则Execute返回True。如果用户单击取消按钮、按Esc键、使用系统关闭按钮或Alt-F4组合键关闭对话框，则Execute返回False。

源代码

为了在运行时使用OpenDialog（或任何其他）而不在表单上放置OpenDialog组件，我们可以使用以下代码：

procedure TForm1.btnFromCodeClick(Sender: TObject); var OpenDlg : TOpenDialog; begin OpenDlg := TOpenDialog.Create(Self); {set options here...} if OpenDlg.Execute then begin {code to do something here} end; OpenDlg.Free; end;

注意：在调用Execute之前，我们可以（必须）设置OpenDialog组件的任何属性。

我的记事本

最后，是时候做一些真正的编码了。这篇文章背后的全部想法（以及接下来的其他一些想法）是创建一个简单的MyNotepad应用程序——类似于Notepad的独立Windows应用程序。在本文中，我们将看到“打开”和“保存”对话框，让我们看看它们的实际操作。

创建MyNotepad用户界面的步骤：。启动Delphi并选择File New Application。。在表单上放置一个备注、OpenDialog、SaveDialog和两个按钮。。将按钮1重命名为btnOpen，将按钮2重命名为btnSave。

编码

1.使用对象检查器将以下代码分配给FormCreate事件：

procedure TForm1.FormCreate(Sender: TObject); begin with OpenDialog1 do begin Options:=Options+[ofPathMustExist,ofFileMustExist]; InitialDir:=ExtractFilePath(Application.ExeName); Filter:='Text files (*.txt)|*.txt'; end; with SaveDialog1 do begin InitialDir:=ExtractFilePath(Application.ExeName); Filter:='Text files (*.txt)|*.txt'; end; Memo1.ScrollBars := ssBoth; end;

这段代码设置了本文开头讨论的一些打开对话框属性。

2.为btnOpen和btnSave按钮的Onclick事件添加以下代码：

procedure TForm1.btnOpenClick(Sender: TObject); begin if OpenDialog1.Execute then begin Form1.Caption := OpenDialog1.FileName; Memo1.Lines.LoadFromFile (OpenDialog1.FileName); Memo1.SelStart := 0; end; end; procedure TForm1.btnSaveClick(Sender: TObject); begin SaveDialog1.FileName := Form1.Caption; if SaveDialog1.Execute then begin Memo1.Lines.SaveToFile (SaveDialog1.FileName + '.txt'); Form1.Caption:=SaveDialog1.FileName; end; end;

运行您的项目。你不能相信；文件正在打开和保存，就像使用“真实”记事本一样。