VPF::Скрытие каретки в RichEdit - Форум программистов

Компоратор

Дата 12.5.2007, 12:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 16.4.2006
Где: Петропавловск-Кам чатский

Репутация: нет
Всего: 1

Насчет вопроса не глумитесь... smile

Вот эта штука (каретка вроде бы называется? Если нет, поправьте), которая моргает рядом с набираемым текстом - ее в RichEdit как-нибудь можно убрать? Только так, чтоб возможность выделения текста осталась. Пытался об этом инфу нарыть - ничего не нашел :(.

Yanis

Дата 12.5.2007, 14:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 6
Всего: 111

DRKB

Цитата(DRKB)

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

Код

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);

Это сообщение отредактировал(а) Yanis - 12.5.2007, 14:26

--------------------

*щёлк*

Компоратор

Дата 13.5.2007, 12:11 (ссылка)

(нет голосов)

Загрузка ...

Работает

. Во как я сделал:

Код


type
TNewRich = class(TRichEdit)
     procedure WMPaint(var Msg: TMessage); message WM_Paint;
     procedure WMSetFocus(var Msg: TMessage); message WM_SetFocus;
     procedure WMNCHitTest(var Msg: TMessage); message WM_NCHitTest;
   end;

{ TNewRich }

procedure TNewRich.WMNCHitTest(var Msg: TMessage);
begin
  inherited;
  HideCaret(Handle);
end;

procedure TNewRich.WMPaint(var Msg: TMessage);
begin
  inherited;
  HideCaret(Handle);
end;

procedure TNewRich.WMSetFocus(var Msg: TMessage);
begin
  inherited;
  HideCaret(Handle);
end;

procedure TForm1.FormShow(Sender: TObject);
var
  NewRich: TNewRich;
begin
   NewRich := TNewRich.Create(self);
   NewRich.Parent := self;
   NewRich.Show;
end;

Это сообщение отредактировал(а) Компоратор - 13.5.2007, 12:17

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »