Автоматически открыть TDateTimePickerDelphi , Компоненты и Классы , TDateTimePickerАвтоматически открыть TDateTimePicker
Оформил: DeeCo { There's no possibility to automatically open a TDateTimePicker than to send a F4 to it.} { Es gibt't keine Moglichkeit, einen TDateTimePicker automatisch zu offnen, als F4 ihm zu senden } procedure TForm1.Button1Click(Sender: TObject); begin DateTimePicker1.Perform(WM_KEYDOWN, VK_F4, 0); DateTimePicker1.Perform(WM_KEYUP, VK_F4, 0); end; Перевод на русский язык: Код, написанный на Delphi, предназначен для автоматического открытия компонента TDateTimePicker при клике по кнопке. Код использует метод Perform контроля TDateTimePicker для имитации нажатия и отпускания клавиши F4. Это достигается отправкой сообщений WM_KEYDOWN и WM_KEYUP с кодом виртуальной клавиши VK_F4. Разбивка кода:
Используя эти сообщения, код эффективно открывает компонент TDateTimePicker при клике по кнопке. Обратите внимание, что это подход ограничен и может не работать в всех ситуациях. Например, если контролл имеет фокус или уже открыт, то нажатие F4 может иметь другой эффект, чем предполагалось. Более надежный способ заключается в использовании встроенной функциональности контроля для открытия его программно. Альтернативное решение:
Код просто вызывает метод Open контрола TDateTimePicker, который откроет его без необходимости дополнительных событий или имитации сообщений. Автоматически открыть TDateTimePicker можно только отправкой команды F4 этому компоненту. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: TDateTimePicker ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |