Скачать: CL | DM;

Message   Найти похожие ветки 

← →
Sw   (2006-03-23 12:46) [0]

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

---

← →
vovnuke ©   (2006-03-23 12:55) [1]

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

---

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

НИКАК

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

или Application.MessageBox

---

← →
sniknik ©   (2006-03-23 13:54) [3]

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

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c