Советы по Delphi
Вызов контекстного меню в позиции курсора III
|
procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var ClientPoint,ScreenPoint: TPoint; begin if Memo1.SelLength>0 then begin ClientPoint.X := X; ClientPoint.Y := Y; ScreenPoint := ClientToScreen (ClientPoint); PopupMenu1.Popup (ScreenPoint.X, ScreenPoint.Y); end; end; |
[001574]
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий