[RESOLVED] DBGrid and two Popup Menus
lazarus / 16-Databases

----------------------------------------------------------------------
rise_nak · 2011-06-19 10:59

Hello!
I have a DBGrid and two Popup Menus.
The first one called GridMenu is set in PopupMenu property in DBGrid,
after right click on DBGrid it opens and it os ok.
Problem is with the second one called GridTitleMenu I want to do that
after right click on first row of DBGrid (this with column title) It
will open.
My first idea was OnTitleClick event and check which button was
clicked, but It works only on left click (btw something like
OnTitleRightButtonClick would be useful).
The second idea was to check which row was clicked in OnPopup event,
but the first row cannot be marked, so I don't know how to check it...
Any ideas?

----------------------------------------------------------------------
fabienwang · 2011-06-19 11:16

just use OnClick event, and check if Row index is 0 (the header line)

----------------------------------------------------------------------
Blaazen · 2011-06-19 11:25

Your chance is OnMouseDown event rather then OnClick (because popup is
displayed very quickly - at least here on linux+qt).
Code: [Select]if Y<StringGrid1.DefaultRowHeight then
StringGrid1.PopupMenu=GridTitleMenu
  else StringGrid1.PopupMenu=GridMenu;

----------------------------------------------------------------------
rise_nak · 2011-06-19 14:17

Thanks very much! It was that what I was looking for..

Code: [Select]procedure TMainForm.DBGridDzienMouseDown(Sender:
TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Y < (Sender as TDBGrid).DefaultRowHeight then
     (Sender as TDBGrid).PopupMenu := GridTitleMenu
  else
     (Sender as TDBGrid).PopupMenu := GridMenu;
end;