DBGrid: Datensatz der selektierten Zeile auswählen

[omata]

Hallo Bufo,

packe auf deine Form eine ApplicationEvents-Komponente (aus Zusätzlich) und als OnMessage-Methode nimm folgendes...

Delphi-Quellcode:

procedure TForm.ApplicationEventsMessage(var Msg: tagMSG; var Handled: Boolean);
var WinControl:TWinControl;
    DBGrid:TDBGrid;
    DataSource:TDataSource;
    DataSet:TDataSet;
begin
  if Msg.message = WM_MOUSEWHEEL then begin
    WinControl:=FindVCLWindow(msg.pt);
    if WinControl is TDBGrid then begin
      DBGrid:=TDBGrid(WinControl);
      if DBGrid.Focused then begin
        DataSource:=DBGrid.DataSource;
        if assigned(DataSource) then begin
          DataSet:=TDataSet(DBGrid.DataSource);
          if assigned(DataSet) then begin
            if Msg.wParam < 0 then
              DataSet.Next
            else
              DataSet.Prior;
            Handled := True;
          end;
        end;
      end;
    end;
  end;
end;

Gruss
Thorsten