MSMK Posted January 10, 2019 Share Posted January 10, 2019 Доброе время суток! Контекстное меню выходит за границы скрина Quote 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; Quote 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; Спасибо, Шерзод! это решение помогло. Можно ли как нибудь убрать скролл с контекстного меню? Quote Link to comment Share on other sites More sharing options...
Sherzod Posted January 15, 2019 Share Posted January 15, 2019 Пожалуйста! ОК проанализирую, но если есть возможность, прикрепите здесь простой тестовый случай. Quote 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 Quote Link to comment Share on other sites More sharing options...
Sherzod Posted January 16, 2019 Share Posted January 16, 2019 Ок, спасибо Мы проверим Quote 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; Quote 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 Quote 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']); ? Quote 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']); ? да, точно! Спасибо! Quote 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; 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.