Непонятки с условием 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?

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

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