Как запретить показ курсора в TEdit и ему подобных контролах

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Как запретить показ курсора в TEdit и ему подобных контролах

Коврик для мышки выполнил недопустимую операцию и будет свернут.

Создайте своего потомка с обработчиками:

procedure WMPaint(var Msg: TMessage); message WM_Paint;
procedure WMSetFocus(var Msg: TMessage); message WM_SetFocus;
procedure WMNCHitTest(var Msg: TMessage); message WM_NCHitTest;

в которых вызывайте:

inherited;
HideCaret(Handle);