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

← →
Express (2007-03-28 21:15) [0]

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

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

← →
Leonid Troyanovsky © (2007-03-28 21:59) [1]

> 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.

← →
easy © (2007-03-28 22:02) [2]

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

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

человек 1С закрывает..
http://delphimaster.net/view/1-1174929830/

← →
Express (2007-03-28 22:41) [3]

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

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

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

Как посласть сообщение о нажатие кнопки "Отмена" в MessageDLG? Найти похожие ветки