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

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

← →
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 и тд)

---

← →
Гаврила ©   (2004-05-27 23:29) [4]

> А как переделать
> 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...

---

← →
Гаврила ©   (2004-05-27 23:30) [5]

то есть = IDYES

---

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

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



Память: 0.46 MB
Время: 0.022 c