Scrollen mit der Maus in DBGrid ?

[Vader]

hallo,

welche eigenschaft muß ich setzten, damit ich in der DBGrid mit der maus scrollen kann ?
mfg vader

[Thanatos81]

Guten Morgen!

Ich mach das immer, in dem ich den MouseWheelHandler überschreibe:
Deklaration

Delphi-Quellcode:

procedure MouseWheelHandler(var Message : TMessage); override;

Implementation

Delphi-Quellcode:

Procedure TForm1.MouseWheelHandler(var Message : TMessage);
begin
  Message.Result := -1;
  if dbgrid1.focused and (DBGrid1.Datasource <> nil) then
    begin
      if (Message.wparam > 0)
        then DBGrid1.datasource.dataset.prior
        else DBGrid1.datasource.dataset.next;
    end
  else inherited;
end;

Aber falls du die Jedis drauf hast, kann ich dir das TJvDBGrid oder TJvDBGridEx empfehlen, bei denen ist das und auch andere, weitere Funktionen bereits eingebaut ;-)

[RavenIV]

das Standard-DBGrid unterstützt das Mausrad nicht.
Entweder machst Du das von Hand (Message-Handler für WM_MOUSEWHEEL im Formular, dann das Grid scrollen).
Oder Du nimmst ein erweitertes DBGrid (torry.net, Jedi, oder so) und verwendest dieses.