Как отследить нажатие кнопки мыши в MouseMove?

← →
jiurajhgjhgty (2004-02-06 20:13) [0]

Непонятно в чем ошибка?Коммпилятор выдает ошибку говоря что несоответствие типов.Почему?
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
If Shift=ssLeft then
....
end;

← →
Тимохов © (2004-02-06 20:14) [1]

ssleft in shift

Ошибка в том, что "множество" и "элемент множества" - вещи разные.

if Shift = [ssLeft] then...
if ssLeft in Shift then...

Как отследить нажатие кнопки мыши в MouseMove? Найти похожие ветки