Как запретить показ курсора в TEdit и ему подобных контролах
Материал из DRKB
Как запретить показ курсора в 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);
ID: 02331