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

Как обработать событие?   Найти похожие ветки 

← →
tort   (2006-03-24 15:39) [0]

Добрый день, Мастера!
Подскажите пожалуйста, как обработать событие нажатия кнопки?
Мне нужно, чтобы если выбрать "да", то выполнить "такое-то действие",
если "нет", то "выполнить это".
Вот кусок кода:

procedure TForm1.NewDoc;
begin
 if WordEdit<>nil then
    messagebox(application.Handle,"Сохранить текущий документ?","Внимание!",MB_YesNo)else
    WordEdit.Clear;
end;
т.е. мне нужно если кнопка "Да", "то действие 1" если
нажата кнопка "Нет","то действие 2". Как это можно реализовать?
На лекции препод был видимо в плохом натсрое - мало кто понял :(

---

← →
Sergey13 ©   (2006-03-24 15:46) [1]

Что мешает к messagebox еще IF приделать?

---

← →
Ega23 ©   (2006-03-24 15:47) [2]


Case MessageBox(..... , MB_YESNO) of
 IDYES  :  DoYesProcedure;
 IDNO   :  DoNoProcedure;
end;

---

← →
Khim ©   (2006-03-24 15:50) [3]

воспользуйся case..of
case application.messagebox(pchar("Заголовок") .... ofidyes:{что то делаем} ;
idno:{что то делаем};
idcancel:{что то делаем};

---

← →
Хрюша   (2006-03-24 15:53) [4]

Спасибо! Разобрался :)
А нашему преподу, видимо пить надо бросать :)

Ещё разок спасиба :))))

---

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

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



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