Главная страница
    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.007 c
1-73256
Slavok
2002-05-10 14:05
2002.05.23
Как лучше передать от сервера клиенту изображение рабочего стола?


7-73410
Dmitry V. Averuanov
2002-02-25 18:47
2002.05.23
Как выключить ATX под DOS-ом ?


1-73247
Юляша
2002-05-09 17:39
2002.05.23
Настройка компонента TrxSplitter


3-73004
Bardel
2002-04-25 15:36
2002.05.23
параметрическое задание таблиц в query


1-73135
RaZEr_
2002-05-13 10:52
2002.05.23
Кто-нибудь поделитесь ieconst.pas





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский