| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как посласть сообщение о нажатие кнопки "Отмена" в MessageDLG? [D7, WinXP]

Express ©   (2007-03-28 21:15:00) 

Здрвавствуйте!

Подскажите как послать сообщение о нажатие кнопки "отмена" в MessageDLG?

---

easy   (2007-03-28 23:21:00) [1]

> на котором 3 кнопки Yes(Да) или Cancel (Нет)
> Третья - "Отмена"
я таки не понял, которая отмена. (Don`t  khow)?

---

Express   (2007-03-28 22:41:00) [2]

> easy ©   (26.03.07 22:49) [28]
> keybd_event (VK_RETURN, 0, KEYEVENTF_KEYDOWN, 0 );keybd_event
> (VK_RETURN, 0, KEYEVENTF_KEYUP, 0 );


Не работает, как правильно написать?

---

easy   (2007-03-28 22:02:00) [3]

> Leonid Troyanovsky © (28.03.07 21:59) [1]


> Почему, собс-но, сообщение и WinAPI

человек 1С закрывает..
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1174929830&n=0

---

Leonid Troyanovsky   (2007-03-28 21:59:00) [4]

> Express   (28.03.07 21:15)  

> Подскажите как послать сообщение о нажатие кнопки "отмена"
> в MessageDLG?

Почему, собс-но, сообщение и WinAPI?
Например:

procedure TForm1.Timer1Timer(Sender: TObject);
var
df : TForm;
begin
df :=  Screen.ActiveForm;
if df.ClassNameIs('TMessageForm') then
  begin
     df.Close;
     (Sender as TTimer).Enabled := False;
  end;
end;

--
Regards, LVT.

---

Наверх