DBGrid Right Click

[-187-]

Hm weiss nicht so recht wie ich das anwenden soll. Ich merke mir den aktuellen Datensatz:

Code:

Cell:=DBGrid1.SelectedField.AsString;

Und nach danach spring ich da mit Locate wieder hin. Aber aus deinem Code kann man ja sehen das du dir die Scrollbar Position merkst, und diese dann wieder anfährst. Die Idee ist perfekt, jedoch hat das bei mir noch nicht geklappt:

Code:

var
  Cell: String;
  TempScrollInfo: SCROLLINFO; 
begin
  if Button = mbRight then
  begin
    TempScrollInfo.cbSize := SizeOf(SCROLLINFO);
    TempScrollInfo.fMask := SIF_POS;
    GetScrollInfo(DBGrid1.Handle, SB_HORZ, TempScrollInfo);
    Cell:=DBGrid1.SelectedField.AsString;
    GridDeSelectAll(DBGrid1);
    DBGrid1.DataSource.DataSet.Locate('NUMBER',Cell,[loPartialKey,loCaseInsensitive]);
    DBGrid1.SelectedRows.CurrentRowSelected:=True;
    SetScrollInfo(DBGrid1.Handle, SB_HORZ, TempScrollInfo, True);
    PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
  end;
end;

[-187-]

Das seltsame ist auch, mein DBGrid zeigt immer 20 Datensätze. Wenn ich in diesen ersten 20 Datensätzen den Rechtsclick mache dann hab ich das Problem nicht ! Nur wenn ich scrolle und bei Datensätzen > 20 den Rechtsclick mache dann springt der angeklickte Datensatz in die letzte angezeigte Row.

[rapante]

Du hast den "falschen" Teil genommen.
Damit setzt du nur die horizontale Scrollbar.

Du brauchst den Part mit row und rowdelta...

[toms]

Zitat von -187-:

GetScrollInfo(DBGrid1.Handle, SB_HORZ, TempScrollInfo);

Soll es sich wirklich die horizontale Position merken?

[-187-]

Hm natürlich nicht Mal wieder verwechselt. Ja ich brauche die verticale Position.

Code:

rowDelta := -1 + MyDBGrid.Row;

Mein DBGrid1 kennt kein .Row

[toms]

Zitat von -187-:

Mein DBGrid1 kennt kein .Row

Hat es schon, aber es ist protected.

Mit diesem "Hack" kannst du auf Row zugreifen:

Delphi-Quellcode:

type
  TMyGrid = class(TDBGrid)
end;
   
TMyGrid(DbGrid1).Row;

[rapante]

Zitat von -187-:

Mein DBGrid1 kennt kein .Row

Oh, hab' ich nicht dran gedacht...

Row ist eine property von TCustomGrid und im DBGrid nicht sichtbar.
Ich hatte mir eine eigene Grid-Klasse von DBGrid abgeleitet und die Property dort
publiziert (vielleicht kommt man da auch anders dran (cast?))

Edit: mit dem "Hack" gehts natürlich auch

[-187-]

Jap hat alles geklappt. Danke für eure Hilfe und dem prima Code !