DBGrid Right Click

[-187-]

Hey, ich suche eine Möglichkeit einen Left Mouseclick auf den aktuellen Mouse Koordinaten zu simulieren wenn ich einen Rechtsclick an mein DBGrid sende.

Code:

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

Der Grund dafür ist das ich die die Row auch mit einem Rechtsclick anwählen möchte.

[toms]

Hallo,

Wenn ich einen Rechtsklick auf ein DBGrid mache, wird die Zeile direkt ausgewählt.
(DBGrid.Options.dgRowSelect = True)

Getestet beim "Fish Facts"-Demo

[-187-]

Hm ne die Row wird nicht selektiert sondern nur fokusiert würde ich sagen.

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

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

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