Zwiększenie wartościw polu Edit1 przy pomocy scroll myszy

Witam,

Potrzebuje w Delphi aby podczas używania scroll myszy zwiększać lub zmniejszać wartość w polu Edit1 o jakąś wartość np. 1. Czy ktoś mógłby mi pomóc bo jakoś nie mogę tego zrobić. Z góry dzięki za pomoc.

Pozdrawiam,
Krzysiekkk

Napisz własną kontrolkę dziedziczącą po TEdit w której nadpiszesz funkcje DoMouseWheelDown i DoMouseWheelDown coś w stylu:

type
  TMyEdit = class(StdCtrls.TEdit)
  protected
    function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
    function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint) :Boolean; override;
  end;
//---
implementation

function TMyEdit.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint) :Boolean;
begin
  result:= inherited DoMouseWheelDown(Shift, MousePos);
  //tu kod dec
end;

function TMyEdit.DoMouseWheelUp( Shift: TShiftState; MousePos: TPoint) :Boolean;
begin
  result:= inherited DoMouseWheelDown(Shift, MousePos);
  //tu kod inc
end;

Edit: albo nawet po TSpinEdit może będzie lepszy