MouseWheelUp and down

Du kan bruge OnMouseWheelUp og OnMouseWheelDown events'ne på din form

nico22>> Det er rigtigt nok .. Men hvis nu du har gang i dit eget komponent så virker det ikke ...

Opppe i din class def skriver du først

procedure MouseWheel(var Msg: TMessage); message WM_MOUSEWHEEL;

så skal den blot implm :

procedure TPicassoCheckListBox.MouseWheel(var Msg: TMessage);
begin
  if (Msg.WParam > 0) then
    TopIndex := TopIndex -1
  else
    TopIndex := TopIndex +1;
end;

Jens B

Det her er på en ListBox.

Jens B

yepper borrisholt du fik mig ind på rette vej.

takker