Mause tekerleği ile formu yukarı aşağı kaydırma

[emrahozten]

Arkadaşlar Merhaba

Mausun tekerleği ile formu yukarı aşağı kaydırmam mümkün mü? Mümkünse kodlarını yazar mısınız? Teşekkür ederim.

[ikra]

Kod: Tümünü seç

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  with VertScrollBar do
  begin
    Position := Position + Increment;
  end;
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  with VertScrollBar do
  begin
    Position := Position - Increment;
  end;
end;

[emrahozten]

çok çok teşekkür ederim