TEdit 之類的元件, 輸入其中的文字, 只要用滑鼠按著左鍵掃過 就可以被選取而成為反白的顏色 是否有方法可以讓 TEdit 失去這項功能 ? 也就是讓滑鼠掃過, 文字也不能成為被選取的狀態

Hi, 看你的功能要限制到多嚴格, 若僅針對滑鼠的處理, 可以在滑鼠的 OnMouseUp event 中將選取長度設為 0 即可!    

procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit1.SelLength := 0;
end;

當然, 若是不希望該 edit 可以取得 focus 的話, 可以利用 OnEnter event 來處理, 將 form 的 AcitveControl 設為 nil 即可!

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  self.ActiveControl := nil;
end;