UniPopupMenu in niDBGrid in Runtime

[Ario.Paxaz]

Hi

 

I use below Code,for create UniPopupMenu in UniDbGrid in Runtime,But don't work.what's my error?

procedure TMainForm.UniDBGrid1CellContextClick(Column: TUniDBGridColumn; X,Y: Integer);
Var
  MyUniPopupMenu:TUniPopupMenu;
  i: SmallInt;
  MI: TuniMenuItem;
  AGrid:TUniDBGrid;
  Aagrid:TComponent;
begin
  Aagrid:=Column.Grid;
  AGrid:=FindComponent(Aagrid.Name) as tunidbgrid;
  MyUniPopupMenu:=TUniPopupMenu.Create(AGrid);
  MyUniPopupMenu.Popup(X,Y);
  For i := 0 To 3 do
  Begin
    MI := TuniMenuItem.Create(AGrid);
    MI.Name := AGrid.Name + 'MI' + IntToStr(i);
    MI.Caption:='s'+IntToStr(i);
    MyUniPopupMenu.Items.Add(MI);
  End;
end;

Best Regards.

[Sherzod]

Hi,

 

Which build are you using?

 

Best regards.

[Ario.Paxaz]

Hi

 

 I compiled on 1346,and my friend compiled by 1363. 

 

 

 

Best Regards.

[Farshad Mohajeri]

Hi

 

 I compiled on 1346,and my friend compiled by 1363. 

 

 

 

Best Regards.

 

Your account will be suspended for using pirated copy of uniGUI.

 

We do not tolerate software piracy to any extent. No matter if you are willing to buy in a near future or not.