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

Непонятки с условием If mouse.shift>0    Найти похожие ветки 

← →
SergeR ©   (2006-10-19 14:30) [0]

Пишу на событие колесика мыши:
procedure TForm1.MScreenMouseWheel(Sender: PControl; var Mouse:MouseEventData);
begin
......
  if Mouse.shift>0 then
      dec(Mzoom) else inc(Mzoom);

  Edit1.text:=int2str(Mouse.shift);
....
end;

Почему то условие отрабатывает только, как true? хотя в Edit1 выводится
и отрицательное число и положительное.
В чем мой (или не мой) косяк?

---

← →
SergeR ©   (2006-10-19 14:33) [1]

Упс. Пока писал - дошло
надо так:
  if integer(mouse.Shift)>0 then .....

Но тогда зачем в KOL.pas mouse.Shift:cardinal?

---

← →
MTsv DN ©   (2006-10-19 14:35) [2]

Про обработку событий колесика уже было... Используйте поиск...

---

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

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



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