delphi TStringGrid and right mouse button

Question

I am using Delphi 10.1 Berlin to make a Multi-Device application. I have a TStringGrid in order to list some data from a query.

I also have a popup menu (edit, delete, ...), but in order to edit/delete an item I have to click on a cell using the left mouse button.

Is it possible to "select a row" using only the right button before showing the popup menu?

I tried:

procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    StringGrid1.Perform(WM_LBUTTONDOWN, 0, MakeLParam(Word(X), Word(Y)));
end;

But it displays an error on mbRight and on Perform().

I see that you also added "multidevice application". Please always add a `firemonkey` tag for FMX applications. — Tom Brunberg, Sep 27 '17 at 09:52
How did you add the `OnMouseDown` event? FMX `TStringGrid` doesn't expose such event. — Tom Brunberg, Sep 27 '17 at 10:07
Yeah @Victoria Still not `OnMouseDown`:) I was teasing OP on their code which obviously was just copied from the other Q/A. But please enter an answer based on the pastebin — Tom Brunberg, Sep 27 '17 at 10:19
on formCreate event i wrote StringGrid1.OnMouseDown:=StringGrid1MouseDown; — Rube, Sep 27 '17 at 10:51
Holy smoke! So it is @David. All the way from TControl. Every day one learns something new is a good day. — Tom Brunberg, Sep 27 '17 at 13:22

score 3 · Accepted Answer · edited Sep 27 '17 at 19:33

3

You can use the following code:

procedure TForm39.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: single);
var
  pf: TPointF;
begin
  if Button = TMouseButton.mbRight then
  begin
    with Sender as TStringGrid do
      SelectRow(RowByPoint(X, Y));
  // Do not use the grids PopupMenu property, it seems it
  // prevents this event handler comletely.
  // Instead, activate the menu manually here.
    pf := ClientToScreen(TPointF.Create(X, Y));
    PopupMenu1.Popup(pf.X, pf.Y);
  end;
end;

FireMonkey is compiled with Scoped Enumerations enabled, so the problem with the mbRight button is solved by prefixing the value with its enum type (TMouseButton.mbRight).

edited Sep 27 '17 at 19:33

Remy Lebeau

555,201
31
458
770

answered Sep 27 '17 at 14:03

Tom Brunberg

20,312
8
37
54

WOW! it works! I modify PopupMenu1.Popup(pf.X, pf.Y); to PopupMenu1.Popup(pf.X, pf.Y+70); in order to have popupmenu near mouse cursor! Thankyou very much @tom – Rube Sep 27 '17 at 14:52
Thanks @Rube, glad I could help. – Tom Brunberg Sep 27 '17 at 14:58

delphi TStringGrid and right mouse button

1 Answers1