Jump to content

TUniPopupMenu


MarBar77

Recommended Posts

Hi,

 

How to get component, from which menu item was clicked.

 

I try

 

procedure TfrElectricityOnline.mnIndicatorDeleteClick(Sender: TObject);
var
  Caller: TObject;
begin
  Caller := ((Sender as TUniMenuItem).GetParentMenu as TUniPopupMenu).PopupComponent;
end;
 
but it results with Caller = nil?
 
PopupMenu is assigned in runtime to components
 
MyComponent.PopupMenu := MyPopupMenu;
 
Marcin
Link to comment
Share on other sites

  • 5 years later...
On 3/10/2018 at 8:10 AM, MarBar77 said:

Hi,

 

How to get component, from which menu item was clicked.

 

I try

 

procedure TfrElectricityOnline.mnIndicatorDeleteClick(Sender: TObject);
var
  Caller: TObject;
begin
  Caller := ((Sender as TUniMenuItem).GetParentMenu as TUniPopupMenu).PopupComponent;
end;
 
but it results with Caller = nil?
 
PopupMenu is assigned in runtime to components
 
MyComponent.PopupMenu := MyPopupMenu;
 
Marcin

 

Hello, I need a solution to this issue.

 
Link to comment
Share on other sites

Solution

type
 TUniPopupMenu = Class(uniMainMenu.TUniPopupMenu)
 Public
 ObjetoPai : TObject;
 End;

procedure TForm_MenuPrincipal.UniDBGridCellContextClick(Column: TUniDBGridColumn; X, Y: Integer);
begin
 PopupMenu_Grid.fObjetoPai := TUniDBGrid(Column.Grid);

 PopupMenu_Grid.Popup(X, Y, TUniDBGrid(Column.Grid));
end;

 ObjetoGrid := ((Sender as TUniMenuItem).GetParentMenu as TPopupMenu).fObjetoPai

 

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...