[dmit2222]

Как убрать текст в заголовке окна, появляющемся после команды Showmessage и кнопку закрыть. В частности слово Project1 в прикрепленном файле.

[M.A.D.M.A.N.]

Написать свою ф-ю.

[Gravitas]

Создать окно через CreateWindow. Или если все-таки можно оставить кнопку "закрыть", то MessageBox.

[M.A.D.M.A.N.]

Достаточно сходить внутрь ШоуМэссэдж, дернуть оттуда код и сделать свою поделку.

[Gravitas]

Сообщение от M.A.D.M.A.N.

Достаточно сходить внутрь ШоуМэссэдж, дернуть оттуда код и сделать свою поделку.

Вы для интереса попробуйте это сделать, устанете скакать от функции к функции по модулю Dialogs...

[einstein]

а чем МессаджБокс не устраивает для диалога? или ШоуМодал для обычной формы из которой сделан диалог заместо ШоуМессадж?

[M.A.D.M.A.N.]

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

Вы для интереса попробуйте это сделать, устанете скакать от функции к функции по модулю Dialogs...

Ну так какбе переделывал для вин7 InputQuery, какбе не запарился лазить по модулю.

[angvelem]

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

Вы для интереса попробуйте это сделать, устанете скакать от функции к функции по модулю Dialogs...

Странно, мне показался этот юнит довольно простым, и я неоднократно переделывал его под свои нужды.

[dmit2222]

Наверное мой вопрос неправильно поняли. В картинке, которая прикреплена в сообщении в заголовке окна написано Project1. Как эту надпись убрать. Чтобы было пусто. Я знаю так можно сделать без всяких дополнительных функций, но запамятовал как именно это сделать. А кнопку закрыть - пускай буде видна.

[Pilot_Red]

application.MessageBox() используй

[M.A.D.M.A.N.]

Код:

Application.Title := EmptyStr;

[angvelem]

SetWindowText(Handle, PChar(''));

[NumLock]

вместо

Код:

ShowMessage('Событие успешно добавлено.');

используй

Код:

MessageBox(Application.Handle, 'Событие успешно добавлено.', '', MB_OK);

[dmit2222]

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

вместо

Код:

ShowMessage('Событие успешно добавлено.');

используй

Код:

MessageBox(Application.Handle, 'Событие успешно добавлено.', '', MB_OK);

Спасибо. Получилось.