Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Вниз

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

← →
franky ©   (2005-01-05 14:08) [0]

if messagedlg("Хотите сохранить текст?", mtConfirmation, [mrYes,mrNo],0)=Ætrue then
//Функция mnuSaveAs
//else
//text.Lines:=""; //memo.lines:="";
//end;
ошибка: [Error] Unit1.pas(92): Incompatible types: "TMsgDlgBtn" and "Integer"
В чём дело пожалуйста помогите

---

← →
ssk ©   (2005-01-05 14:37) [1]

возможно надо так

if messagedlg("Хотите сохранить текст?", mtConfirmation, [mrYes,mrNo],0)=IDYES then

---

← →
Almaz ©   (2005-01-05 15:55) [2]

> возможно надо так

Так - точно не надо ;)


> franky ©   (05.01.05 14:08)  

Так попробуйте:
if messagedlg("Хотите сохранить текст?", mtConfirmation,
   [mbYes, mbNo], 0)=mrYes then

Удачи.

---

← →
GuAV ©   (2005-01-05 16:12) [3]

Almaz ©   (05.01.05 15:55) [2]

А почему бы нет :-)

cosnt
 mrYes      = idYes;

---

← →
GuAV ©   (2005-01-05 16:13) [4]

всё, понял...

---

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

Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Наверх

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