Как запретить показ курсора в 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);

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 736 • TDictionary Custom Sort 6 739 • Fast Watermark Sources 6 525 • 3D Designer 9 465 • Sik Screen Capture 6 854 • Patch Maker 7 302 • Айболит (remote control) 7 248 • ListBox Drag & Drop 6 106 • Доска для игры Реверси 97 920 • Графические эффекты 7 424 • Рисование по маске 6 719 • Перетаскивание изображений 5 573 • Canvas Drawing 5 953 • Рисование Луны 5 735 • Поворот изображения 5 190 • Рисование стержней 3 796 • Paint on Shape 2 972 • Генератор кроссвордов 3 912 • Головоломка Paletto 3 109 • Теорема Монжа об окружностях 3 930 • Пазл Numbrix 2 582 • Заборы и коммивояжеры 3 381 • Игра HIP 2 321 • Игра Go (Го) 2 220 • Симулятор лифта 2 625 • Программа укладки плитки 2 208 • Генератор лабиринта 2 729 • Проверка числового ввода 2 365 • HEX View 2 705 • Физический маятник 2 376

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

Похожие по теме исходники