IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Выделенный текст
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 32
Пол: Мужской

Репутация: -  0  +


Здрасте. Как узнать, что текст выделен?
Например : имеются два текстовых поля, в одном из них текст и нужно перенести во второе перенести
только, то что я выделил в первом.

Поля создаються так:


Edit1:=CreateWindowEx( WS_EX_ClientEdge,'Edit','', WS_Child or WS_HScroll or WS_VScroll
or ES_MultiLine or ES_Left or WS_CHILD or WS_VISIBLE,0,45,167,143, WND,0, hInstance, nil );
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


code warrior
****

Группа: Пользователи
Сообщений: 484
Пол: Мужской
Реальное имя: Славен

Репутация: -  8  +


получить выделенный текст:
function GetSelectedText(Edit: THandle): string;
var cr: tagCHARRANGE;
begin
SendMessage(Edit, EM_EXGETSEL, integer(@cr), 0);
SetString(Result, cr.cpMax - cr.cpMin, nil);
SendMessage(Edit, EM_GETSELTEXT, 0, integer(Result));
end;

назначить текст:
procedure SetText(Edit: THandle; const Text: string);
begin
SendMessage(Edit, WM_SETTEXT, 0, integer(Text));
end;


А вообще-то MSDN и ещё раз MSDN


--------------------
ИзВ ин ИтЕ зА нЕ рОв НЫй П оч ЕРк
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






hardcase, а ты компилировать это пробовал? Или Правила форума тебя не касаются? Тогда извини, вынужден тебя разочаровать. ЭТО касается ВСЕХ без исключения. Сам догадаешься, где ошибка, или показать? Или в MSDN послать, чтоб читал до просветления?
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 21.11.2017 0:07
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"