Выделенный текст Опции

[Klose]

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

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

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 );

[hardcase]

получить выделенный текст:

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

[volvo]

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