TUniPopupMenu

[MarBar77]

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

[Sherzod]

Hi,

(Sender as TUniMenuItem).GetParentMenu

Are you still using the trial edition?

[MarBar77]

Neverming, I have found the problem. I have to set PopupComponent property manually in code every time when popup method is called.

[MarBar77]

I have just ordered complete edition at our Polish distributor.

[Farshad Mohajeri]

I have just ordered complete edition at our Polish distributor.

 

How and when did you place your order?  What do you mean by Polish distributor? (Will you buy through another company?)

 

Thank you,

[MarBar77]

I have ma an order in Friday by Polish company Dreamsoft. They are selling software from all over the world. We have in Poland complicated Tax rules, and for me is simlier to buy the software directly in Poland.

They have your software in their offer:

https://www.dreamsoft.com.pl/unigui-complete-1930p

 

 

Marcin

[Luciano França]

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.

[Luciano França]

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