Изменение заголовка окна в Delphi

[T(h)rasher]

Доброго времени суток. Подскажите пожалуйста, есть ли в delphi функция, позволяющая изменять заголовок окна, которое появляется при работе функции ShowMessage()? В заголовке стоит имя моего проекта, но нельзя ли туда какое-нибудь свое сообщение поставить?

[Mad_Cat]

можно использовать messagedlg или показывать свою форму с сообщением и там писать любой заголовок

[T(h)rasher]

спасибо, но у него много лишних параметров, которые мне не нужны...

[Mad_Cat]

их не обязательно использовать все а чем вариант со своей формой не устроил?

[phomm]

Перед показом меняйте свойство Application.title на нужное сообщение, а после обратно, например так:

var s:string;
...
s := application.title;
application.title := 'Всем кранты!';
showmessage('Бомба взорвется через 5 секунд!');
application.title := s;

[T(h)rasher]

Сообщение от Mad_Cat

а чем вариант со своей формой не устроил?

Просто хотелось, чтобы в заголовке было сообщение, имеющее отношение к тому, что в окне, а не скучный "Project1".

[T(h)rasher]

Сообщение от phomm

Перед показом меняйте свойство Application.title на нужное сообщение, а после обратно, например так:

var s:string;
...
s := application.title;
application.title := 'Всем кранты!';
showmessage('Бомба взорвется через 5 секунд!');
application.title := s;

Спасибо, все работает!

[phomm]

Чем Вас не устроила messagedlg ?? она достаточно простая, однако, не дает менять заголовок, думаю Mad_Cat слегка напутал, имея ввиду messagebox, вот пример:

messagebox(Self.Handle, 'Текстичек', 'Заголовочичек', MB_OK {или куча других интересных/полезных флагов, подробнее - см. хелп});