Как обработать событие?

← →
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]

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

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

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