БОЛЬШОЙ FAQ ПО DELPHI



Вызов контекстного меню в позиции курсора 3


 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ