onMouseWheel-Ereignis nur einmal

[Markus K.]

Hier ist noch eine andere Variante von mir.

Delphi-Quellcode:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
     if Handled=False then
     begin
          Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
          Handled:=True;
     end;
end;

Tschüß Markus