Event onScroll på ListView

http://groups.google.com/groups?hl=nl&lr=&ie=UTF-8&safe=off&selm=3c9a8ad4_2%40dnews&rnum=12

hmm...kan jeg ikke få til at virke:

procedure TDenFormListViewerErPaa.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if msg.message = WM_VSCROLL then
  begin
    mitListView.Repaint;
  end;
end;


og i formens Create har jeg skrevet:

Application.OnMessage := AppMessage;

Jeg har sat et breakpoint ind på    mitListView.Repaint;
Men den kommer aldrig derind.

/SpEeDy

Hvordan er din AppMessage deklereret i private/public, hvor den nu er?

private
  procedure AppMessage(var Msg: TMsg; var Handled: Boolean);


Men den modtager en masse andre Messages...men WM_VSCROLL fr den ikke når man scroller i ListView'et

/SpEeDy

Det her ser ud til at virke:
http://www.delphipages.com/threads/thread.cfm?ID=63581&G=63577 :)

//hermandsen

Jeg kunne ikke umiddelbart få det til at virke, men har dog heller ikke brug for det mere.

Jeg har dog ikke prøvet dit sidste link.

Men du får lidt fordi du prøvede (og fordi dit sidste link måske virker) :)

/SpEeDy