Чтобы было не видно курсора в поле ввода

← →
MisterBin (2002-05-12 09:43) [0]

Как сделать, чтобы курсора ввода не было видно при клике на Memo.
Ну чтобы он не мигал. Если можно код.

← →
Song (2002-05-12 10:18) [1]

HideCaret()

← →
MisterBin (2002-05-12 12:24) [2]

Спасибо Song!

← →
Andrey007 (2002-05-13 10:40) [3]

А как надо этим HideCaret пользоваться? Я попробовал 2 варианта:

1) TForm1.Memo1Enter(Sender: TObject);
begin
HideCaret(Handle)
end;

2) TForm1.Memo1Enter(Sender: TObject);
begin
HideCaret((Sender as TMemo).Handle)
end;

ни один из них не работает.

← →
Song (2002-05-13 11:21) [4]

Второй вариант работать должен. По-моему нужно делать не на onEnter, потому что это событие вызывается при передаче фокуса на компонент т.е. когда он ещё неактивный. Курсора в этот момент на компоненте нет, поэтому IMHO вызов HideCaret бессмысленен. Вставьте в обработчик кнопки: HideCaret(TMemo(Sender).Handle); когда фокус на компоненте уже установлен.

← →
Andrey007 (2002-05-13 16:15) [5]

Я сделал вот так:

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X,Y: Integer);
var p: TPoint;
begin
if GetCaretPos(p) then HideCaret((Sender as TMemo).Handle)
end;

и работает. Большое спасибо.

Чтобы было не видно курсора в поле ввода Найти похожие ветки