Как скрыть курсор?

Vovan-VE · Регистрация: 10.01.2008

Author24 — интернет-сервис помощи студентам

Для Edit'а в событии OnEnter пишу HideCaret(Edit1.Handle); а она возвращает false (т.е. не получилось). Может, потому что в момент обработки события фокус еще не пришел? В OnExit конечно пишу обратно ShowCaret(Edit1.Handle); но не помогает.

Как скрыть курсор? Видимо, я что-то упустил; раньше получалось.

@Delphiist · 28.02.2008, 20:52

Вставляем HideCaret(Edit1.Handle); в события OnKeyDown и OnMouseDown компонента TEdit

Опытным путем проверено, вроде работает.

@jkrnd · 11.11.2016, 16:01

Delphiist, как же всё-таки скрыть курсор именно при получении фокуса от клавиатуры (OnEnter)?

@FIL · 11.11.2016, 21:19

Например так:

Delphi

type
  TEdit = class(StdCtrls.TEdit)
  private
    procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
    procedure WMSetCursor(var Message: TWMSetCursor); message WM_SETCURSOR;
  end;
 
...
 
{ TEdit }
 
procedure TEdit.WMSetCursor(var Message: TWMSetCursor);
begin
  inherited;
  HideCaret(Handle);
end;
 
procedure TEdit.WMSetFocus(var Message: TWMSetFocus);
begin
  inherited;
  HideCaret(Handle);
end;

@jkrnd · 12.11.2016, 10:36

FIL,

Не по теме:

Попал на ваш форум случайно (через поиск яндексе). Не сочтите за сверохборзость, пожалуйста, то же самое но словами или, ещё лучше, на C# или VB.NET

@FIL · 12.11.2016, 11:37

Сообщение от jkrnd

то же самое но словами

Если кратко, то мы переопределяем класс TEdit, добавляя в него свои реализации требуемых нам обработчиков сообщений.
Так сказать, модифицируем штатные Едиты.
Как это будет на C# или VB.NET лучше спросить в соответствующих разделах, т.к. это раздел Delphi.

Vovan-VE 13208 / 6597 / 1041 Регистрация: 10.01.2008 Сообщений: 15,069
		1
	Как скрыть курсор? 19.02.2008, 07:14. Показов 5627. Ответов 5 Метки нет (Все метки) Для Edit'а в событии OnEnter пишу HideCaret(Edit1.Handle); а она возвращает false (т.е. не получилось). Может, потому что в момент обработки события фокус еще не пришел? В OnExit конечно пишу обратно ShowCaret(Edit1.Handle); но не помогает. Как скрыть курсор? Видимо, я что-то упустил; раньше получалось. 1

@Delphiist 1230 / 66 / 16 Регистрация: 23.04.2007 Сообщений: 127
	28.02.2008, 20:52	2
	Вставляем HideCaret(Edit1.Handle); в события OnKeyDown и OnMouseDown компонента TEdit Опытным путем проверено, вроде работает. 1

@jkrnd 179 / 69 / 13 Регистрация: 22.12.2015 Сообщений: 2,648
	11.11.2016, 16:01	3
	Delphiist, как же всё-таки скрыть курсор именно при получении фокуса от клавиатуры (OnEnter)? 0

@jkrnd 179 / 69 / 13 Регистрация: 22.12.2015 Сообщений: 2,648
	12.11.2016, 10:36	5
	FIL, Не по теме: Попал на ваш форум случайно (через поиск яндексе). Не сочтите за сверохборзость, пожалуйста, то же самое но словами или, ещё лучше, на C# или VB.NET 0

@FIL Модератор 3491 / 2614 / 741 Регистрация: 19.09.2012 Сообщений: 7,976
	12.11.2016, 11:37	6
	Сообщение от jkrnd то же самое но словами Если кратко, то мы переопределяем класс TEdit, добавляя в него свои реализации требуемых нам обработчиков сообщений. Так сказать, модифицируем штатные Едиты. Как это будет на C# или VB.NET лучше спросить в соответствующих разделах, т.к. это раздел Delphi. 1