delphi - 我可以在Delphi中更改TSavetextfiledialog的保存按钮上的标题吗？

Question

我有一个TSavetextfiledialog，用户在其中选择要保存的文件名，但是保存不会立即发生。因此，我希望保存按钮显示“选择”而不是“保存”。可以更改按钮的标题吗？

Answer 1

由于这是旧式的通用文件打开对话框，因此可以在具有CDM_SETCONTROLTEXT标识符的项目上使用IDOK消息作为VCL对话框句柄的父级。有关其他项目的ID，请参见Explorer-Style Control Identifiers上的文档。在OnShow事件处理程序中调用它：

uses
  commdlg;

procedure TForm2.SaveTextFileDialog1Show(Sender: TObject);
begin
  SendMessage(GetParent(SaveTextFileDialog1.Handle),
      CDM_SETCONTROLTEXT, IDOK, NativeUInt(PChar('MyCaption')));
end;

当您将文件夹选择为“打开”时，对话框会将按钮文本更改；当选择的不是文件夹时，将还原您的自定义标题。