ShowDlg - Общие вопросы Delphi

frai · 03.10.2007, 19:09

ShowDlg...кажется так называется эта функция. В общем она выводит диалоговое окно с кнопками и содержанием которое прописывается в ее переменных. Мне нужно каким то образом перехватывать результат нажатой кнопки. То есть например если пользователь нажал Да то один вариант действий, если Нет то другой.
Заранее благодарю

rpy3uH · 03.10.2007, 20:00

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if MessageDlg('111',mtInformation,[mbYes,mbNo],0)=mrYes then
  ShowMessage('вы нажали кнопку "да"');
end;

frai · 03.10.2007, 21:19

Пасиба! Все намного проще чем я думал!)

03.10.2007, 19:09	#1
frai Пользователь Регистрация: 11.04.2007 Сообщений: 36	ShowDlg ShowDlg...кажется так называется эта функция. В общем она выводит диалоговое окно с кнопками и содержанием которое прописывается в ее переменных. Мне нужно каким то образом перехватывать результат нажатой кнопки. То есть например если пользователь нажал Да то один вариант действий, если Нет то другой. Заранее благодарю

03.10.2007, 20:00	#2
rpy3uH добрый няша Старожил Регистрация: 29.10.2006 Сообщений: 4,804	Код: `procedure TForm1.Button1Click(Sender: TObject); begin if MessageDlg('111',mtInformation,[mbYes,mbNo],0)=mrYes then ShowMessage('вы нажали кнопку "да"'); end;` [Программирование на ассемблере на платформе x86-64]

03.10.2007, 21:19	#3
frai Пользователь Регистрация: 11.04.2007 Сообщений: 36	Пасиба! Все намного проще чем я думал!)