}
//-----------------------------------------
void __fastcall TForm1::NewEditProc(TMessage &Msg)
{
switch(Msg.Msg) {
case WM_CUT:
case WM_COPY:
case WM_PASTE:
case WM_CONTEXTMENU:
case WM_SETFOCUS:
return;
default: OldEditProc(Msg);
}
}
//--------------------------------------------