[RAD] TEdit 의 기본 팝업 동작하기

class TEdit : public Stdctrls::TEdit
{
public:
    void* __fastcall GetDefEditProc(void) { return DefWndProc; }
};
#define TEdit ::TEdit

TEdit.OnContectMenu

void __fastcall TForm1::Edit1ContextPopup(TObject *Sender, TPoint &MousePos,
      bool &Handled)
{
    Handled = true;
    TPoint P = Edit1->ClientToScreen(TPoint(MousePos.x, MousePos.y));
    CallWindowProc((FARPROC)Edit1->GetDefEditProc(), Edit1->Handle, WM_CONTEXTMENU, 0, MAKELONG(P.x, P.y));
}