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

解決

超初心者  2005-12-09 10:37:16  No: 19149  IP: 192.*.*.*

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

編集 削除
りおりお  2005-12-09 11:34:53  No: 19150  IP: 192.*.*.*

D6 のヘルプより

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

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

編集 削除
超初心者  2005-12-09 11:41:45  No: 19151  IP: 192.*.*.*

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

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

編集 削除
えーと  2005-12-09 11:45:51  No: 19152  IP: 192.*.*.*

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

編集 削除
超初心者  2005-12-09 14:46:45  No: 19153  IP: 192.*.*.*

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

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

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

編集 削除
えーと  2005-12-09 15:53:21  No: 19154  IP: 192.*.*.*

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

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

で上手くいきませんか？

編集 削除
超初心者  2005-12-16 13:58:16  No: 19155  IP: 192.*.*.*

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

編集 削除
超初心者  2005-12-16 14:08:57  No: 19156  IP: 192.*.*.*

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

編集 削除