Советы по 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
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий