掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
バグでしょうか? (ID:35494)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Delphi7 WindowXP sp2 ですが、上記現象にはならずForm2の上に SelectDirectory のメニューが表示されています。 procedure TForm1.Button1Click(Sender: TObject); begin Form2.ShowModal; end; procedure TForm2.Button1Click(Sender: TObject); var Dir: string; const SELDIRHELP = 1000; begin Dir := 'C:\'; if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then Label1.Caption := Dir; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.