Константы MK_CONTROL и MK

← →
AZ © (2003-03-04 05:49) [0]

Делаю в OnCreate формы Myform
Application.OnMessage:=MouseMessages;
Пристыковываю

procedure Myform.MouseMessages(var Msg: TMsg; var Handled: boolean); case Msg.message of WM_LBUTTONDOWN: begin MLButtonDown(Msg.wParam, Msg.pt); end; … end; end; procedure Myform.MLButtonDown(Keys: longint; Pos: TPoint); begin case Keys of //Понимает 5: Label1.Caption:="ShiftDown"; // Но не понимает MK_CONTROL //Понимает 9: Label1.Caption:="ControlDown"; // Но не понимает MK_SHIFT end; … end;
Компилируется с константами MK_CONTROL и MK_SHIFT нормально, но их не воспринимает.
В чем фокус?

← →
AZ © (2003-03-04 05:55) [1]

Прошу извинения, следует читать так:
//Понимает 5: Label1.Caption:="ShiftDown"; // Но не понимает MK_SHIFT //Понимает 9: Label1.Caption:="ControlDown"; // Но не понимает MK_CONTROL end;

← →
Anatoly Podgoretsky © (2003-03-04 09:29) [2]

Их надо предварительно объявить где нибудь.

← →
icWasya © (2003-03-04 10:39) [3]

unit windows;

const
{ Key State Masks for Mouse Messages }
{$EXTERNALSYM MK_LBUTTON}
MK_LBUTTON = 1;
{$EXTERNALSYM MK_RBUTTON}
MK_RBUTTON = 2;
{$EXTERNALSYM MK_SHIFT}
MK_SHIFT = 4;
{$EXTERNALSYM MK_CONTROL}
MK_CONTROL = 8;
{$EXTERNALSYM MK_MBUTTON}
MK_MBUTTON = $10;

← →
AZ © (2003-03-04 12:38) [4]

>Anatoly Podgoretsky © (04.03.03 09:29)
Но раз компилятор не ругается, значит эти константы уже объявлены?

>icWasya © (04.03.03 10:39)
Я видел эти объявления.
Почему-то на MK_RBUTTON = 2 никакой реакции.

← →
AZ © (2003-03-04 16:40) [5]

← →
icWasya © (2003-03-04 16:48) [6]

надо не

Keys = MK_RBUTTON

а

(Keys and MK_RBUTTON) <>0

AZ © (04.03.03 12:38)
Насчет ругается или нет не было ни слова, а так они объявлены в Windows, но цифровые коды у тебя не соответствуют этим константам, надо использовать логическое сложение нескольких флагов.

Извиняюсь было, не заметил.

Спасибо.

Константы MK_CONTROL и MK_SHIFT Найти похожие ветки