MessagedlgでmtCustomのキャプションの設定方法を教えて下さい

解決

超初心者 2005-12-09 19:37:16 No: 19149

ヘルプを見ると「メッセージの前にキャプションを入れる」みたいになってますが
引数エラーで怒られます！
どのように設定するのか教えて下さい

りおりお 2005-12-09 20:34:53 No: 19150

D6 のヘルプより

mtCustom ビットマップがないメッセージボックス。
メッセージボックスのキャプションにはアプリケーションの実行可能ファイルの名前が表示されている

ですから、キャプションはユーザが設定するものではないのでは。

超初心者 2005-12-09 20:41:45 No: 19151

りおりおさん
ありがとうございます

好きなキャプションは設定できないんですね！
こまったなぁ〜

えーと 2005-12-09 20:45:51 No: 19152

http://www.asahi-net.or.jp/~HA3T-NKMR/tips011.htm
の方法ならdlg.Captionと出来ると思います。

超初心者 2005-12-09 23:46:45 No: 19153

えーとさん
またまたありがとうございます

この方法はボタンのキャプションでしょうか？

わたしの説明不足でした・・・・
ボタンではなくＤｉａｌｏｇ自体？（閉じるボタン×等があるところ）の
キャプションなんです・・・

えーと 2005-12-10 00:53:21 No: 19154

> ボタンではなくＤｉａｌｏｇ自体？（閉じるボタン×等があるところ）の
> キャプションなんです・・・

var dlg: TForm;
    res: Word;
begin
  dlg := CreateMessageDialog('Test', mtCustom,
                             [mbYes, mbNo]);
  dlg.Caption := '超初心者';
  res := dlg.ShowModal;
  dlg.Free;
end;

で上手くいきませんか？

超初心者 2005-12-16 22:58:16 No: 19155

えーとさん
ありがとうございます
ちゃんとなりました
大変助かりましたm(_ _)m

超初心者 2005-12-16 23:08:57 No: 19156

解決させてしまいましたがこれの場合・・・
mtWarningやmtInformationみたいにイメージを出す方法は無いでしょうか？