Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как обработать событие? [D7, XP]

tort © (2006-03-24 15:39:00)
Добрый день, Мастера!
Подскажите пожалуйста, как обработать событие нажатия кнопки?
Мне нужно, чтобы если выбрать "да", то выполнить "такое-то действие",
если "нет", то "выполнить это".
Вот кусок кода:

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

Хрюша (2006-03-24 15:53:00) [1]
Спасибо! Разобрался :)
А нашему преподу, видимо пить надо бросать :)

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

Khim (2006-03-24 15:50:00) [2]
воспользуйся case.. of
caseapplication.messagebox(pchar('Заголовок') .... ofidyes:{что то делаем} ;
idno:{что то делаем};
idcancel:{что то делаем};

Ega23 (2006-03-24 15:47:00) [3]
Case MessageBox(..... , MB_YESNO) of IDYES : DoYesProcedure; IDNO : DoNoProcedure; end;

Sergey13 (2006-03-24 15:46:00) [4]
Что мешает к messagebox еще IF приделать?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »