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

Вниз

Выделенный текст   Найти похожие ветки 

 
Editor   (2004-08-26 22:32) [0]

Как узнать выделенный текст в окне Edit, апишным способом ?
Заранее благодарен !!!


 
TUser ©   (2004-08-26 22:36) [1]

function TCustomEdit.GetSelTextBuf(Buffer: PChar; BufSize: Integer): Integer;
var
 P: PChar;
 StartPos: Integer;
begin
 StartPos := GetSelStart;
 Result := GetSelLength;
 P := StrAlloc(GetTextLen + 1);
 try
   GetTextBuf(P, StrBufSize(P));
   if Result >= BufSize then Result := BufSize - 1;
   StrLCopy(Buffer, P + StartPos, Result);
 finally
   StrDispose(P);
 end;
end;

Благодарности по адресу aknol@borland.com


 
TUser ©   (2004-08-26 22:39) [2]

Вобщем смысл в том, что надо использовать EM_GETSEL для определения начала и конца выделения и WM_GETTEXT для определения всего текста.



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

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

Наверх




Память: 0.46 MB
Время: 0.063 c
4-1093677521
WELLiON
2004-08-28 11:18
2004.10.03
CTRL+SHIFT


9-1086382702
Vin_Ghost
2004-06-05 00:58
2004.10.03
перемещение по миникарте


14-1094820430
kand
2004-09-10 16:47
2004.10.03
Как корректно учтановить Win2000Pro?


1-1095327137
Black
2004-09-16 13:32
2004.10.03
как узнать кол-во символов в текстовом файле?


3-1094199462
Влад
2004-09-03 12:17
2004.10.03
Как прочитать данные из TSDQuery/TIBQuery?