Hey, Another_eYes 说的完全不可行,不知您自己试过没有?我用的是D5:
procedure TForm1.Edit1Exit(Sender: TObject);
begin
setwindowlong(edit1.handle, GWL_STYLE,
getwindowlong(edit1.handle, GWL_STYLE)
and not ES_AUTOHSCROLL or ES_MULTILINE or ES_Right);
edit1.invalidate;
end;
不论在那个事件中做都是一样。