Как запретить показ курсора в 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); Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
Создайте своего потомка с обработчиками:
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);