Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.006 c
6-73339
Андрей Сенченко
2002-03-12 22:10
2002.05.23
Непонятная ошибка в NMSMTP


1-73265
djdfy
2002-05-08 21:21
2002.05.23
курсор в TRichEdit


1-73312
Tosha_a
2002-05-11 19:43
2002.05.23
как вызвать процедуру одного класса в функции другого?


1-73175
zZet
2002-05-09 21:01
2002.05.23
Как заставить зе бат запускаться правильно?


4-73477
Andr
2002-03-20 10:43
2002.05.23
Baikonur GisToolKit





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский