ActionMainMenuBar1中的过滤文件保存类型?

Question

二.为什么不会文件保存类型过滤?
procedure TForm1.FileSaveAs1Accept(Sender: TObject);
var
  saveDialog : TSaveDialog;    // Save dialog variable
begin
  // Create the save dialog object - assign to our save dialog variable
  saveDialog := TSaveDialog.Create(self);  // Give the dialog a title
  saveDialog.Title := 'Save your text or word file';  // Set up the starting directory to be the current one
  //saveDialog.InitialDir := GetCurrentDir;  // Allow only .txt and .doc file types to be saved
  saveDialog.Filter := 'Text file|*.txt|Word file|*.doc';  // Set the default extension
  saveDialog.DefaultExt := 'txt';  // Select text files as the starting filter type
  saveDialog.FilterIndex := 1;  // Display the open file dialog
  if saveDialog.Execute
  then ShowMessage('File : '+saveDialog.FileName)
  else ShowMessage('Save file was cancelled');  // Free up the dialog
  saveDialog.Free;
end;
运行后文件保存类型为何为空?

Answer 1

是在ActionMainMenuBar1的onAccept事件中的