alucard Posted October 24, 2018 Share Posted October 24, 2018 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; Quote Link to comment Share on other sites More sharing options...
Sherzod Posted October 24, 2018 Share Posted October 24, 2018 Merhaba, Which build are you using ?! UniDBTreeGrid -> OnCellContextClick event ? Quote Link to comment Share on other sites More sharing options...
alucard Posted October 24, 2018 Author Share Posted October 24, 2018 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. Quote Link to comment Share on other sites More sharing options...
Sherzod Posted October 24, 2018 Share Posted October 24, 2018 uniGUI'nin hangi sürümü ..? Quote Link to comment Share on other sites More sharing options...
alucard Posted October 24, 2018 Author Share Posted October 24, 2018 17 minutes ago, Sherzod said: uniGUI'nin hangi sürümü ..? 1.0.2.1439 Quote Link to comment Share on other sites More sharing options...
Sherzod Posted October 24, 2018 Share Posted October 24, 2018 Quote Link to comment Share on other sites More sharing options...
Sherzod Posted October 24, 2018 Share Posted October 24, 2018 1.50.0.1480 Quote Link to comment Share on other sites More sharing options...
alucard Posted October 24, 2018 Author Share Posted October 24, 2018 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ı Quote Link to comment Share on other sites More sharing options...
Sherzod Posted October 24, 2018 Share Posted October 24, 2018 Use like this for example: UniPopupMenu2.Popup(X, Y); Quote Link to comment Share on other sites More sharing options...
alucard Posted October 24, 2018 Author Share Posted October 24, 2018 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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.