DBGrid Right Click

[-187-]

Hm habe es mir nochmal angeguckt. Also es ist so das der Code zwischen dem 2ten begin und end nur funktioniert wenn ich im Grid auf eine Leere Stelle klicke. Wenn ich aber auf eine Row klicke dann klappts nicht.

Genauso verhält es sich mit dem PopupMenu wenn man es im OI dem Grid nicht zugewiesen hat. Die Lösung dafür wäre einfach -> Einfach die Zuweisungsetzen. Aber wie kann ich jetzt meine Function dem Grid zuweisen ?

Code:

procedure TForm1.DBGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
  begin
    MyFunction;
  end;
end;

[Bummi]

TCustomDBGrid.MouseDown schluck hier scheinbar
bei if FDatalink.Active then

OnMouseUp nützt Dir nichts??
sonst vielleicht ein leeres Popupmenu und das Ereignis Popup missbrauchen?

[-187-]

Danke, habs mir jetzt im OnMouseUp irgendwie zusammen gebastelt.

Code:

  if Button = mbRight then
  begin
    Cell:=DBGrid1.SelectedField.AsString;
    GridDeSelectAll(DBGrid1);
    DBGrid1.DataSource.DataSet.Locate('NUMBER',Cell,[loPartialKey,loCaseInsensitive]);
    DBGrid1.SelectedRows.CurrentRowSelected:=True;
    PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
  end;

Wobei NUMBER Unique ist

[-187-]

Hm jetzt hab ich aber das Problem das wenn mein DBGrid 20 Datensätze zeigt, meine DB mehr als 20 Datensätze hat sagen wir mal 200, dann springt der angewählte Eintrag immer nach ganz unten im DBGrid. Ok ich könnte mit MoveBy wieder nach oben moven aber ich weiss ja garnicht um wieviel. Schließlich möchte ich die Row wieder an der Stelle haben wo sie angewählt wurde.

Wieso macht das DBGrid überhaupt so einen Unfug ?

[-187-]

Push

[rapante]

Du musst dir die aktuelle Zeile merken und hinterher wieder setzen.

Ich habe sowas mal gebaut gehabt um bei einem Refresh über einen Timer die Ansicht beizubehalten:

Delphi-Quellcode:

procedure TMyForm.RefreshTimerTimer(Sender: TObject);
var
   rowDelta: integer;
   row: integer;
   recNo: integer;
   TempScrollInfo: SCROLLINFO; 
begin

 // Position des aktuellen Datensatzes (vertical)
 rowDelta := -1 + MyDBGrid.Row;
 row := MyDBGrid.DataSource.DataSet.RecNo;

 // Position der horizontalen Scrollbar
 TempScrollInfo.cbSize := SizeOf(SCROLLINFO);
 TempScrollInfo.fMask := SIF_POS;
 GetScrollInfo(MyDBGrid.Handle, SB_HORZ, TempScrollInfo );

 MyDBGrid.DataSource.DataSet.DisableControls;
 try
   MyZQuery.Refresh;
   
   // Die Ansicht wiederherstellen (vertical)
   with MyDBGrid.DataSource.DataSet do
   begin
     RecNo := row;
     MoveBy(-rowDelta) ;
     MoveBy(rowDelta) ;
   end;
 finally
   MyDBGrid.DataSource.DataSet.EnableControls;
   //Die horizontale Scrollposition wiederherstellen
   SetScrollInfo(MyDBGrid.Handle, SB_HORZ, TempScrollInfo, true);
 end;
end;

[-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;

[rapante]

Hallo -187-

Du könntest dir ein eigene DBGrid-Komponente von TCustomDBGrid ableiten und die procedure MouseDown überschreiben.

Die müsste dann ungefähr so aussehen (ungetestet!):

Delphi-Quellcode:

procedure TMyDBGrid.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (Button = mbRight) then
    Button := mbLeft;
  inherited MouseDown(Button, Shift, X, Y);
end;