Popup menu для Richedit

[vovk]

ну тогда уж так

procedure TForm1.RichEdit1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
pt:tPoint;
begin
if Button = mbRight then
begin
GetCursorPos(pt);
PageControl2.Left:=x+(sender as Tcontrol).Left ;
PageControl2.Top:=y+(sender as Tcontrol).Top;
PageControl2.Visible:=true;
PopupMenu1.Popup(pt.x, pt.Y + Panel1.Height + 3 );
end else
PageControl2.Visible:=false;
end;

и у RichEdit1 очистить свойство PopupMenu

[Кристинка89]

спасибо большое