Скачать: CL | DM;

Как отследить нажатие кнопки мыши в 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

---

← →
Юрий Зотов ©   (2004-02-06 20:15) [2]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c