Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

MisterBin © (2002-05-12 09:43:00)
Как сделать, чтобы курсора ввода не было видно при клике на Memo.
Ну чтобы он не мигал. Если можно код.

Andrey007 (2002-05-13 16:15:00) [1]
Я сделал вот так:

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;

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

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

Andrey007 (2002-05-13 10:40:00) [3]
А как надо этим HideCaret пользоваться? Я попробовал 2 варианта:

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

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

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

MisterBin (2002-05-12 12:24:00) [4]
Спасибо Song!

Song (2002-05-12 10:18:00) [5]
HideCaret()

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »