Avatar billede skindbeni Nybegynder
23. maj 2005 - 22:22 Der er 2 kommentarer og
1 løsning

Få scrollhjulet på min mus til at virke

Hej.

Hvordan får man musens scrollhjul til at virke - altså i stedet for at trykke på den veritikale scrollbar, når indholdet af ens form er større end selve formens størrelse?
Avatar billede eht Nybegynder
24. maj 2005 - 23:19 #1
Dus skal bruge ScrollBar.Position og WheelDelta f.eks. som dette eksempel:

procedure TForm1.ScrollBox1MouseWheel(Sender: TObject;
  Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  var Handled: Boolean);
begin
  Form1.ScrollBox1.VertScrollBar.Position :=
    Form1.ScrollBox1.VertScrollBar.Position - (WheelDelta div 4);
end;
Avatar billede skindbeni Nybegynder
17. december 2006 - 15:12 #2
@ eht.

Vil du sende et svar, så får du points.

(Beklager det sene svar)
Avatar billede eht Nybegynder
05. januar 2007 - 15:04 #3
Svar!
Bedre sent end aldrig
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester