[Snake22]

Здраствуйте.Хочу добавить контекстное меню для Ричедита но неполучается, подскажите в чём ошибка.
Пытался сделать как в этой статье http://demi-s.narod.ru/components/042.html

и там в функции GetRichEditFromPopup у меня всегда возвращается значение nil ,хотя всё делаю как в примере

[Pilot_Red]

а по-другому(проще) нельзя сделать через свойство PopupMenu..

все идею понял))

вот так попробуй...

Код:

procedure TForm1.RichEdit1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
//richPopup.Popup(MousePos.X+GetClientOrigin.x,MousePos.y+GetClientOrigin.y);
end;

function TForm1.GetRichEditFromPopup: TRichEdit;
begin
  //нужно добавить некоторую проверку (if richEditContextMenu.PopupComponent is TRichEdit)
  result := TRichEdit(RichPopup.PopupComponent) ;//result равен nil!!!
end;

procedure TForm1.RichPopupPopup(Sender: TObject);
var
  re : TRichEdit;
begin
re := GetRichEditFromPopup;
N1.Enabled := re.SelText <> '';
end;

procedure TForm1.N1Click(Sender: TObject);
begin
 GetRichEditFromPopup.ClearSelection;
end;

end.

и не забудь свойству Popupmenu назначить свой popup

[Snake22]

незнаю!может и можно.в примере так написано.ща попробую

[Snake22]

хм.ну прописал я вместо
re:=Getrich...
re := TRichEdit(RichPopup.popupcomponent);
но RichPopup.popupcomponent сам по себе содержит пустоту,nil,не помогло

[Pilot_Red]

Сообщение от Snake22

хм.ну прописал я вместо
re:=Getrich...
re := TRichEdit(RichPopup.popupcomponent);
но RichPopup.popupcomponent сам по себе содержит пустоту,nil,не помогло

сейчас скину проект..

[Snake22]

ааа незаметил у ричедита внизу свойство Popup.
спасибо=)