Форум: "Основная";
Текущий архив: 2004.02.17;
Скачать: [xml.tar.bz2];

Вниз

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

Форум: "Основная";
Текущий архив: 2004.02.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c