UniDBTreeGrid Popup menü çalıştırmak.[Çözüldü]

[alucard]

UniDBTreeGrid de sağ tık ile menü açmak istiyorum. gridin kendi özelliği yok . aşağıdaki kod ile açabiliyorum ama menü mousun alt tarafında açılıyor.

procedure TMainForm.UniDBTreeGrid1MouseDown(Sender: TObject; Button:
    TMouseButton; Shift: TShiftState; X, Y: Integer);

    var
  pt : tPoint;
    begin
 pt := Mouse.CursorPos;
 if Button = mbRight then
 UniPopupMenu2.Popup(pt.X,pt.Y,UniDBTreeGrid1)
end;

 

[Sherzod]

Merhaba,

Which build are you using ?!

UniDBTreeGrid -> OnCellContextClick event ?

[alucard]

34 minutes ago, Sherzod said:

Merhaba,

Which build are you using ?!

UniDBTreeGrid -> OnCellContextClick event ?

sorry,
I don't understand what you mean.
Can you give an example.

[Sherzod]

uniGUI'nin hangi sürümü ..?

[alucard]

17 minutes ago, Sherzod said:

uniGUI'nin hangi sürümü ..?

1.0.2.1439

[Sherzod]

[Sherzod]

1.50.0.1480

[alucard]

procedure TMainForm.UniDBTreeGrid1CellContextClick(Column: TUniDBGridColumn; X,
    Y: Integer);
    var
  pt : tPoint;
    begin
 pt := Mouse.CursorPos;
 UniPopupMenu2.Popup(pt.X,pt.Y,UniDBTreeGrid1)

end;

Unigui V : 1.10.0.1464

 

sonuç aynı değişen bişey olmadı

[Sherzod]

Use like this for example:

UniPopupMenu2.Popup(X, Y);

[alucard]

procedure TMainForm.UniDBTreeGrid1MouseDown(Sender: TObject; Button:
    TMouseButton; Shift: TShiftState; X, Y: Integer);

    var
  pt : tPoint;
    begin
 pt := Mouse.CursorPos;
 if Button = mbRight then
 UniPopupMenu2.Popup(X,Y,UniDBTreeGrid1)
end;

şeklinde yapınca istediğim sonucu aldım. Teşekkürler.