|
Delphi 2005 + Windows 8.1 の環境で
TSaveDialog のダイアログが表示されないという現象が発生する．
と言うのですが，何か情報ないでしょうか ?
この環境でテストできる状態がないんです．
確か，初期ディレクトリの設定が云々というのは見た記憶があるのですが．
テストコードは以下です．
procedure TForm21.BitBtn6Click(Sender: TObject);
var
FileName : String;
begin
//ファイル名をセットする
SaveDialog1.FileName := '予定表';
//ファイル選択のオープンダイアログを表示
if (SaveDialog1.Execute = True) then
ShowMessage('File : '+ SaveDialog1.FileName)
else
ShowMessage('Save file was cancelled');
end;
SaveDialog1.FileName := '予定表';
のコードを削除するとダイアロは表示されるようです．
少なくても，Delphi XE(UP1) Pro + Windows 7 U64(SP1) では発生しません．
ファイル名の指定があってもなくてもダイアログは表示されます．
# メールでの問い合わせのコードをそのまま掲載しています．
|