Olá, sou nova na área de programação, precisa de ajuda.
Estou salvando os dados de um CxGrid usando o SaveDialog para exportar em excel
o problema é que o savedialog continua aberto após o arquivo aberto e já salvo, ele não fecha.
segue o código Delphi:
begin saveDialog1 := TSaveDialog.Create(self); saveDialog1.Title := 'Salve o Relatório'; saveDialog1.InitialDir := GetCurrentDir; saveDialog1.Filter := 'Excel (*.xls)'; saveDialog1.DefaultExt := 'xls'; saveDialog1.FilterIndex := 1; begin SaveDialog1.Execute; if SaveDialog1.FileName <> '' then begin ExportGrid4ToExcel(SaveDialog1.FileName,cxGrid1,false); ShellExecute(Handle,'open', pchar(SaveDialog1.FileName),nil, nil, SW_SHOWMAXIMIZED); end; end; end;
-Se puderem me ajudar!!!