Подписаться на RSS рассылку
Главная » Статьи по Delphi » Компоненты » Скрыть курсор ввода в TMemo

Скрыть курсор ввода в TMemo

Автор: Борисов Сергей

Использовать функцию

function HideCaret(hWnd: HWND): BOOL; stdcall;

Пишем ее в обработчике onChange:

procedure TForm1.Memo1Change(Sender: TObject);
begin
  HideCaret(Memo1.Handle);
end;

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
HideCaret(Memo1.Handle);
end;
Теперь при вводе текста в Memo курсор не будет видно.

Просмотров: 7265

Обсудить на форуме

0   Спам
(28.01.2012)
2. Артём
Спасибо! Помогло!

0   Спам
(01.08.2011)
1. Виктор
Просто замечательно. То что нужно!


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта