| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Message [D6, XP]

Sw ©   (2006-03-23 12:46:00) 

Уважаемые мастера, подскажите, пожалуйста, как изменить заголовок вывода сообщения в ShowMessageи MessageDlg?

---

sniknik   (2006-03-23 13:54:00) [1]

> НИКАК
уверен? ;)

const
 WM_SetCaption = WM_USER + 101;

TForm1 = class(TForm)
 ...
 procedure SetCaption(var Message: TMessage); message WM_SetCaption;
 ...
end;

procedure TForm1.SetCaption(var Message: TMessage);
const newCapt = 'New Caption';
var smHNDL: THandle;
begin
 smHNDL:= FindWindow('TMessageForm', nil);
 SendMessage(smHNDL, WM_SETTEXT, 0, Longint(PChar(newCapt)));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 PostMessage(Handle, WM_SetCaption, 0, 0);
 ShowMessage('Message');
end;

---

Dmitrij_K   (2006-03-23 12:57:00) [2]

НИКАК

альтернативный вариант
 sss := application.Title;
 application.Title := 'Мой заголовок';
 ShowMessage('ok');
 application.Title := sss;

или Application.MessageBox

---

vovnuke   (2006-03-23 12:55:00) [3]

а чем не устраивает MessageBox?

---

Наверх