MessageDlgを常に手前にするには (ID:9678)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 LupinⅢさんに一票。 procedure TForm1.Button1Click(Sender: TObject); var str,title:string; begin str:='てすと'; title:='タイトル'; MessageBox( Handle, // handle of owner window PChar(str), // address of text in message box PChar(title), // address of title of message box MB_OK or MB_SYSTEMMODAL or MB_TOPMOST// style of message box ); end; >MessageDlgがファームの後ろに隠れてしまします。 >常にフォームを手前に表示させる方法を教えて下さい。 ↑そのまま解釈しますと、意味が錯誤しますけど。 ダイアログを最前面に保持って事でいいんですよね？