請問如何讓TEdit無法[複製][貼上]? 也就是[ctrl]+[X]、[ctrl]+[C]、[ctrl]+、[

nicolas 您好：    一個簡單的方法是令 Edit->Enabled = false;。 但是還是能夠利用程式碼改變其值，只是字型會變成灰色的。

參考這篇討論: http://groups.google.com/groups?hl=zh-TW&lr=&ie=UTF-8&th=48a97f78c730cdfa&rnum=70 當中 Serdar Guven 寫了一個 TEdit 元件的後代, 可以試試。    -- 向 KTop 的弟兄們致敬! 

這些熱鍵沒記錯的話應是會觸發 WM_COPY、WM_PASTE 及 WM_CUT ，所以讓這些熱鍵失效的一個方法就是乎略掉這些訊息---    

var
  OldWndProc : Pointer;   // 儲存原本的視窗處理函式位址
       :
implementation    {$R *.dfm}
function MyWindowProc( Handle : HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM ) : LRESULT; stdcall;
begin
  if (Msg = WM_COPY) or (Msg = WM_PASTE) or (Msg = WM_CUT) then
     Msg := WM_NULL;      (* 呼叫原本的視窗處理函式 *)
  Result := CallWindowProc( OldWndProc, Handle, Msg, WParam, lParam );
end;    procedure TForm1.FormCreate(Sender: TObject);
begin
  Integer(OldWndProc) := SetWindowLong( Edit1.Handle, GWL_WNDPROC, integer(@MyWindowProc) );
end;