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

Вниз

как отловить смену положения курсора в TEdit?   Найти похожие ветки 

 
DimG   (2003-03-19 16:16) [0]

Подскажите как отловить смену положения курсора в TEdit не используя WM_KeyDown и т.п.?


 
Astrov Alseos   (2003-03-19 17:35) [1]

Эта функция возвращает положение курсора в TEdit (D6, Win98)


Function _GetPosition(Sender: TEdit):Integer;
var iX,iY: Integer;
begin
iX := 0; iY:=0;
iY := SendMessage(Sender.Handle, EM_LINEFROMCHAR, Sender.SelStart,0);
iX := Sender.SelStart - SendMessage(Sender.Handle, EM_LINEINDEX,iY, 0);
Result:=iX + 1
end;


...возможно, и в D7 она будет работать...


 
Diamond Cat   (2003-03-20 00:55) [2]

надо перехватывать wm_command и в случае если hiword(wparam)=EN_CHANGE и lParam=edit№.handle, значит произошло изменение в едите, а для того чтоб получить изменение позиции каретки, надо через set/getwindowlong, устанавливать едиту новый обработчик и внем отлавливать сообщение EM_SCROLLCARET



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

Форум: "WinAPI";
Текущий архив: 2003.05.19;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.006 c
1-59770
KSergey
2003-05-05 11:17
2003.05.19
TAction и кнопка


4-59977
Виталий
2003-03-18 14:03
2003.05.19
Опять про чужие окна


1-59777
Top Gun
2003-05-01 15:37
2003.05.19
Исключение в конструкторе


1-59722
Masa
2003-05-05 19:32
2003.05.19
Как bmp файл сделать бэграундом Panel


14-59853
fighter@str
2003-05-01 12:07
2003.05.19
PWL





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