Popup menu для Richedit

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

Можно ли назначить сразу две Popup menu для Richedit? и как это сделать если возможно?

[AVer]

Что значит сразу две? Что должно происходить при нажатии правой кнопки?

[Johnson]

Как ты себе это представляешь?
Две меню вылязят одновременно?
Или разные, в зависимости от действия?
Опиши, как ты себе это видишь...

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

две меню сразу. При нажатии правой кнопки сразу две

[AVer]

А зачем они нужны? Просто сделай элемент у PopupMenu с Caption '-' ,без кавычек - получится разделительная черта.

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

Я хочу как на этой картинке. Я конечно понимаю что программа написана не на делфи, но возможно ли сделать так же? Эта картинка из MS ViSIO 2010

[Johnson]

Ну а кто сказал, что сверху - это попап меню?
И кто сказал, что на дельфи чего-то нельзя сделать?

Делаешь Панель, на нее накидываешь нужные контролы, и делаешь невидимой.
По тыку кнопки правой - меняешь координаты и делаешь видимой...

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

мне нужен в таком случае исходник разбора координат, сама не справлюсь я

[vovk]

Сообщение от Кристинка89

мне нужен в таком случае исходник разбора координат, сама не справлюсь я

используйте onMouseUp на своём контроле, в процедуре есть координаты положение курсора над контролом. Останется добавить к ним положение самого контрола на форме. В простейшем случае так

procedure TForm1.vash_RicheditMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
begin
 vasha_Panel.Left:=x+(sender as Tcontrol).Left ;
 vasha_Panel.Top:=y+(sender as Tcontrol).Top;
 vasha_Panel.Visible:=true;
end;

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

procedure TForm1.RichEdit1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbRight then
begin
PageControl2.Left:=x+(sender as Tcontrol).Left ;
PageControl2.Top:=y+(sender as Tcontrol).Top;
PageControl2.Visible:=true;
richedit1.PopupMenu:=popupmenu1;
end else
PageControl2.Visible:=false;
end;



Вот сделала такую процедуру, теперь появляется так как надо, но хочется чтобы они появлялись не как попало а сначала pagecontrol и под ним popupmenu. Поможете реализовать?