Сейчас большинство компьютерных мышек имеют колесико для прокрутки. Но несмотря на это в программах, активно использующих колесико стоит предусмотреть случай, когда мышка простая. Следующая функция на Delphi проверяет наличие колеса прокрутки у мыши:
function MouseWheelPresent : boolean;
begin
Result := (GetSystemMetrics(SM_MOUSEWHEELPRESENT) <> 0);
end;
Хотите сделать тату на плече?