Задание:
Delphi 7. Возник вопрос. Я пишу программу, где возникает сразу несколько MessageDlg. Ну что-то типа вируса, но с благородными целями (не подумайтеплохо). Разумеется надо как-то выйти/закрыть программу. Я например делал onKeyDown на форме (if key=40 then close). Так же делал вместо close использовал halt. Не получалось т.к. messageDlg как будто берет управление на себя.
Решение:
Насколько я знаю в любой сборке Delphi есть компонент "Application Events", у которго есть соответствующее событие "OnShortCut", так вот разместите на форме данный компонент (в 7 версии Delphi он должен лежать во вкладке "Additional") и запишите в его свостве OnShortCut следующее: procedure TForm1.ApplicationEvents1ShortCut (var Msg: TWMKey; var Handled: Boolean); beginIf Msg.CharCode=Ord ('G') thenForm1.Close; end; Ord ('G') — функция возвращающая код символа, в ее параметр записывайте непосредственно тот символ, по нажатию которого должна прекратить работу ваша программа.
Знаете другой ответ?