| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Непонятки с условием 'If mouse.shift>0' [Delphi, Windows]
SergeR © (2006-10-19 14:30:00)Пишу на событие колесика мыши:
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 выводится
и отрицательное число и положительное.
В чем мой (или не мой) косяк?
MTsv DN (2006-10-19 14:35:00) [1]Про обработку событий колесика уже было... Используйте поиск...
SergeR (2006-10-19 14:33:00) [2]Упс. Пока писал - дошло
надо так:
if integer(mouse.Shift)>0 then .....
Но тогда зачем в KOL.pas mouse.Shift:cardinal?
| |
