MSMK Posted January 10, 2019 Share Posted January 10, 2019 Доброе время суток! Контекстное меню выходит за границы скрина Link to comment Share on other sites More sharing options...
Sherzod Posted January 11, 2019 Share Posted January 11, 2019 19 hours ago, =GGG= said: Контекстное меню выходит за границы скрина Добрый день, Мы проанализируем. Но как обходной путь, попробуйте это решение: 1. type TExtPopup = class(TUniPopupMenu) end; 2. procedure TMainForm.UniDBGrid1CellContextClick(Column: TUniDBGridColumn; X, Y: Integer); begin //UniPopupMenu1.Popup(X, Y, UniDBGrid1); with TExtPopup(UniPopupMenu1).MenuControl.JSInterface do begin JSCall('showBy', [UniDBGrid1.JSControl]); JSCall('setPosition', [X+27, Y+27]); end; end; Link to comment Share on other sites More sharing options...
MSMK Posted January 15, 2019 Author Share Posted January 15, 2019 On 1/11/2019 at 11:28 AM, Sherzod said: Добрый день, Мы проанализируем. Но как обходной путь, попробуйте это решение: 1. type TExtPopup = class(TUniPopupMenu) end; 2. procedure TMainForm.UniDBGrid1CellContextClick(Column: TUniDBGridColumn; X, Y: Integer); begin //UniPopupMenu1.Popup(X, Y, UniDBGrid1); with TExtPopup(UniPopupMenu1).MenuControl.JSInterface do begin JSCall('showBy', [UniDBGrid1.JSControl]); JSCall('setPosition', [X+27, Y+27]); end; end; Спасибо, Шерзод! это решение помогло. Можно ли как нибудь убрать скролл с контекстного меню? Link to comment Share on other sites More sharing options...
Sherzod Posted January 15, 2019 Share Posted January 15, 2019 Пожалуйста! ОК проанализирую, но если есть возможность, прикрепите здесь простой тестовый случай. Link to comment Share on other sites More sharing options...
MSMK Posted January 16, 2019 Author Share Posted January 16, 2019 21 hours ago, Sherzod said: Пожалуйста! ОК проанализирую, но если есть возможность, прикрепите здесь простой тестовый случай. PopupMenu.zip Link to comment Share on other sites More sharing options...
Sherzod Posted January 16, 2019 Share Posted January 16, 2019 Ок, спасибо Мы проверим Link to comment Share on other sites More sharing options...
Sherzod Posted January 16, 2019 Share Posted January 16, 2019 5 hours ago, =GGG= said: PopupMenu.zip Может, Вам попробовать так: with TExtPopup(pmMain).MenuControl.JSInterface do begin //JSCall('showBy', [UniDBGrid.JSControl]); JSCall('showBy', [Self.WebForm.JSName]); JSCall('setPosition', [X, Y]); end; Link to comment Share on other sites More sharing options...
MSMK Posted January 16, 2019 Author Share Posted January 16, 2019 4 minutes ago, Sherzod said: Может, Вам попробовать так: with TExtPopup(pmMain).MenuControl.JSInterface do begin //JSCall('showBy', [UniDBGrid.JSControl]); JSCall('showBy', [Self.WebForm.JSName]); JSCall('setPosition', [X, Y]); end; у меня грид находится на TUniFrame Link to comment Share on other sites More sharing options...
Sherzod Posted January 16, 2019 Share Posted January 16, 2019 11 minutes ago, =GGG= said: у меня грид находится на TUniFrame JSCall('showBy', [UniDBGrid.JSName+'.owner']); ? Link to comment Share on other sites More sharing options...
MSMK Posted January 16, 2019 Author Share Posted January 16, 2019 2 minutes ago, Sherzod said: JSCall('showBy', [UniDBGrid.JSName+'.owner']); ? да, точно! Спасибо! Link to comment Share on other sites More sharing options...
Sherzod Posted January 16, 2019 Share Posted January 16, 2019 Еще один способ: with TExtPopup(pmMain).MenuControl.JSInterface do begin JSCall('setMinHeight', [300]); JSCall('showBy', [UniDBGrid.JSControl]); JSCall('setPosition', [X, Y]); end; Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now