掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TOpenDiarogのファイル入力欄にコードでファイル名を入力するには？ (ID:14625)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
そういうことなら以下の方法はどうかな？ uses ...,, Dlgs, Commdlg, ...; // << usesに追加 ・・・・ procedure DlgSetFolder(hDlg: THandle; APath: string); var DlgParent: HWND; begin DlgParent := GetParent(hDlg); // 親のハンドル // フォルダをセット SendMessage( DlgParent, CDM_SETCONTROLTEXT, Edt1, Integer(PChar(APath)) ); SendMessage(DlgParent, WM_COMMAND, IDOK, 0); // 開くボタンを押す // Editを空っぽにしておく SendMessage( DlgParent, CDM_SETCONTROLTEXT, Edt1, Integer(PChar('')) ); end; ・・・・ // 必要なところで DlgSetFolder(OpenDialog1.Handle, 'c:\temp'); // テスト ・・・・ 注意 存在しないフォルダを指定するとダイアログが閉じます。 閉じたくない場合は前もって確認しておくか Pathに 'c:\temp\*.*' みたいな指定の仕方をすると大丈夫です。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.