Советы по 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]




Содержание  Назад