掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TSaveDialogの初期ディレクトリを取得するには？ (ID：39937)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
初期フォルダを取るならこれで出来る TSaveDialog = class(Dialogs.TSaveDialog) protected procedure DoSelectionChange; override; end; //フォルダやファイルを選択する度に実行される procedure TSaveDialog.DoSelectionChange; begin inherited; //初期はフォルダが入っている //ファイルを選択すると選択したフォルダ＋ファイル名になる Form1.Caption := Self.FileName; end; procedure TForm1.Button1Click(Sender: TObject); begin SaveDialog1.FileName := ''; //全開のファイル名が残るので消す if SaveDialog1.Execute = True then begin Exit; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.