Выделение текста В мемо

[BESS]

Мне нужно обработать выделение текста в мемо как событие как это можно сделать у кого какие соображения?

[DOLBY]

Что-то типа этого:

procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if(Memo1.SelLength<>0) then
  begin
   //Твоё Событие
  end;
end;

[Arigato]

Можно сделать так:

var Memo1SelLength: Integer = 0;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if memo1.SelLength <> Memo1SelLength then
  begin
    Memo1SelLength := Memo1.SelLength;
    OnMemoSelect; // некий обработчик
  end; {if}
end;

Т.е. нужен еще таймер. Если происходит выделение, то вызывается процедура OnMemoSelect.

[BESS]

Сообщение от DOLBY

Что-то типа этого:

procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if(Memo1.SelLength<>0) then
  begin
   //Твоё Событие
  end;
end;

это все хорошо а ести выделение клавой происходиь?

[NikLik]

Как отловить это как событие--незнаю, но узнать об изменении можно обрабатывая нажатия клавиш мыши\клавиатуры либо по таймеру проверять выделенный текст.

P.S. на мой взгляд, это лучший вариант...иначе--рыться в WinAPI, и то не факт что что-нибудь найдёшь.

[BESS]

это все конечно идея а может есть что нить готовое? сообщения какие нить перехватить )))) ?????

[Arigato]

Сообщения: клавиатура, мышь.
А проще (ИМХО) с таймеров (см. мой пример).

[BESS]

Сообщение от Arigato

Сообщения: клавиатура, мышь.
А проще (ИМХО) с таймеров (см. мой пример).

нет с таймеров не проще мне нужна в конечном итоге мгновенная индикация количества выделенных символов с минимальной нагрузкой на ресурсы компа

[BESS]

давайте любые идеи

[Stilet]

с минимальной нагрузкой на ресурсы компа

Определяй выделение в OnKeyDOWN OnMouseDown для Эдита.