关于一个EDIT这样是怎么办到的？(50分)

让EDIT的光标始终在最后 鼠标点前面不好使 不可以全选 可以按键盘的左键 移动光标 没有右键事件

mousedown里面判断

听说是拦截消息 不知道怎么弄了 有高手会吗？

如果只要使光标在最后，不要屏蔽就可以了
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Edit1.SelStart := Length(Edit1.Text);
end;

如果要屏蔽右键，建议你还是从TCustomEdit继承，重载下面这个过程就可以了
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;