Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.23;
Скачать: CL | DM;

Вниз

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

 
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;

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



Страницы: 1 вся ветка

Текущий архив: 2002.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
4-73472
cok
2002-03-09 21:54
2002.05.23
Нажатие кнопки


1-73257
Дмитрий Иванов
2002-05-05 20:14
2002.05.23
TThread и Physical Memory


7-73415
dlK
2002-02-26 15:47
2002.05.23
Как можно программно залочить машину в W2k AS ?


1-73147
Kid_a
2002-05-13 18:57
2002.05.23
DrawGrid


1-73245
Dimaiv
2002-04-26 19:47
2002.05.23
Как в DbGrid сделать так чтобы Hint появлялся только после