Текущий архив: 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.064 c
