|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Обработка сообщений
Код:
type TForm1 = class(TForm) Button1: TButton; private procedure WMPaint(var Message: TWMPaint); message WM_PAINT; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.WMPaint(var Message: TWMPaint); begin Canvas.Brush.Style := bsClear; Canvas.TextOut(1, 1, 'abcde'); end; Как изменить WMPaint, чтобы она срабатывала после нажатия ALT+TAB? |
#2
|
|||
|
|||
Код:
if (getasynckeystate(VK_MENU)=-32768) and (getasynckeystate(VK_TAB)=-32768) then ... |
#3
|
|||
|
|||
Что означает -32768?
|
#4
|
|||
|
|||
что клавиша нажата
|