Вопрос про сообщения

← →
hgd (2004-05-27 22:54) [0]

Есть такой текст:

if MessageDlg("Заменить существующий файл " + ExtractFileName("\"+Edit12.Text+".txt") + "?", mtConfirmation, [mbYes, mbNo], 0) = IDYes then

Так вопрос вот в чем, как можно заменить заголовок окна (открывающегося с английского на свой).

← →
Гаврила © (2004-05-27 22:57) [1]

Используй Application.MessageBox или просто MessageBox вместо MessageDlg - сам будешь задавать текст заголовка и прочие параметры.
Не понимаю, зачем Borland вообще ввел эти функции - MessageDlg и прочее. Имхо, отстой полный

← →
hgd (2004-05-27 23:14) [2]

А как переделать
if MessageDlg("Заменить существующий файл " + ExtractFileName("\"+Edit12.Text+".txt") + "?", mtConfirmation, [mbYes, mbNo], 0) = IDYes then

под

Application.MessageBox

← →
jack128 © (2004-05-27 23:20) [3]

> Не понимаю, зачем Borland вообще ввел эти функции - MessageDlg
> и прочее. Имхо, отстой полный
ради некоторых кнопок, которых нет в messagebox"e (mbYesToAll и тд)

> А как переделать
> if MessageDlg("Заменить существующий файл " + ExtractFileName("\"+Edit12.Text+".txt")
> + "?", mtConfirmation, [mbYes, mbNo], 0) = IDYes then
>
> под
>
> Application.MessageBox

if MessageBox(handle, PChar("Заменить существующий файл " + ExtractFileName("\"+Edit12.Text+".txt"), "Твой заголовок", MB_YESNO or MB_ICONQUESTION) = ID_YES then...

то есть = IDYES

Вопрос про сообщения Найти похожие ветки