Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: WinAPI и системное программирование > Текст слева от каретки.


Автор: hitter 1.4.2006, 20:04
Как получить слово начало которого текущее положение
каретки в поле ввода, а конец первый пробел.
Хендл уже известен.

Автор: Sunvas 2.4.2006, 00:44
А че ж тут трудного то??
Код

var i:word;
begin
for i:=edit1.SelStart to length(edit1.Text) do
if edit1.Text[i]=' ' then
begin
result:=copy(edit1.Text,edit1.SelStart+1,i-edit1.SelStart);
break;
end;

Автор: hitter 2.4.2006, 12:19
Цитата(Sunvas @ 2.4.2006, 04:44 Найти цитируемый пост)
var i:word;
begin
for i:=edit1.SelStart to length(edit1.Text) do
if edit1.Text[i]=' ' then
begin
result:=copy(edit1.Text,edit1.SelStart+1,i-edit1.SelStart);
break;
end;

Это в проге, а мне надо в другом окне!

Автор: Yanis 2.4.2006, 21:19
Цитата(hitter @ 1.4.2006, 20:04 Найти цитируемый пост)
Хендл уже известен.

На основе этого получи текст окна, текст каретки и уже в своей программе используй этот код.

Автор: Yanis 2.4.2006, 21:41
К стати, тебе точно нужно именно слева от каретки?

Автор: hitter 3.4.2006, 11:00
Цитата(Yanis @ 3.4.2006, 01:41 Найти цитируемый пост)
К стати, тебе точно нужно именно слева от каретки?
Объясняю -
Код

вот текст который вводится|

Так надо получить слово "вводится", ну и так по принципу.

Автор: Romikgy 3.4.2006, 14:00
Код

var vpt: TPoint;
    xy: TSize;
    sl: TStringList;
    sx: String;
    konec: boolean;
    i: longint;
begin
konec:=true;
Edit1.SetFocus;
  sl:=TStringList.Create;
  sl.Text:=StringReplace(Edit1.Text,' ',#13#10,[rfReplaceAll]);
  sx:=sl[0];
  i:=0;
  GetCaretPos(vpt);
  while ( konec) do
  begin
  GetTextExtentPoint32(GetDC(Edit1.Handle),pchar(sx),
  length(sx), xy);
  if (xy.cx>vpt.X) then konec:=false
  else begin
     inc(i);
     sx:=sx+' '+sl[i];
  end;
  end;
  Edit2.Text:=sl[i];
  
  sl.Free;
end;

Работает , но незнаю насколько точно , т.к. GetTextExtentPoint32 и GetCaretPos возвращают разные значения для одних и тех же строк,
корочей попробуй
в эдит1 строка с курсором
в эдит2 ответ слово левее курсора

Автор: Yanis 3.4.2006, 15:41
Цитата(hitter @ 3.4.2006, 11:00 Найти цитируемый пост)
Так надо получить слово "вводится", ну и так по принципу.

Просто ты определись. Сначала говоришь, что нужен текст слева от каретки, потом говоришь, что каретка стоит в начале слова и тебе нужно его получить smile

Автор: hitter 3.4.2006, 19:32
Цитата(Yanis @ 3.4.2006, 19:41 Найти цитируемый пост)
Просто ты определись. Сначала говоришь, что нужен текст слева от каретки, потом говоришь, что каретка стоит в начале слова и тебе нужно его получить 

Извиняюсь просто сразу не прикинул, ну я думаю теперь понятно!
Добавлено @ 19:34
Romikgy, сейчас попробую, может работает?

Автор: hitter 4.4.2006, 10:31
Цитата(Romikgy @ 3.4.2006, 18:00 Найти цитируемый пост)
Работает , но незнаю насколько точно , т.к. GetTextExtentPoint32 и GetCaretPos возвращают разные значения для одних и тех же строк,
корочей попробуй
в эдит1 строка с курсором
в эдит2 ответ слово левее курсора

Помоему работает, но нету обработки на ошибки, прикрутил несколько проверок!
Если в едит1 стереть весь текст вылетает ошиба, - исправлено.
Еще поработаю , и выложу что получилось!

Автор: hitter 4.4.2006, 11:59
Проверил работает-ли с Memo, нет не работает!
Отображает текст только верхней строчки!
А как изменить чтобы получал даже в мемо?

Автор: Romikgy 4.4.2006, 14:21
Код

function take_left_word(const h: HWND): string;
var t,len,ss,es: longint;
    tex: pchar;
    sx: string;
    chst: set of char;
    b: boolean;
begin
  len:=GetWindowTextLength(h);
  GetMem(tex,len+1);
  GetWindowText(h,tex,len);
  sx:=StrPas(tex);
  Freemem(tex);
  SendMessage(h,EM_GETSEL,Longint(@t), 0);
  chst:=['a'..'z','A'..'Z','0'..'9','_'];
  ss:=0; es:=0;
  dec(t);
  if sx[t] in chst then else
  while (not (sx[t] in chst)) and (t>0) do dec(t);
  while ((sx[t] in chst) and (t>0)) do
  dec(t);
  inc(t);
  ss:=t;

  while ((sx[t] in chst) and (t<=len)) do
  inc(t);
  es:=t;
  Result:=copy(sx,ss,es-ss);
end;

работает с любым наследником эдитов
Добавлено @ 14:22
в чар сет добавь русские буквы если надо

Автор: hitter 4.4.2006, 20:32
Цитата(Romikgy @ 4.4.2006, 18:21 Найти цитируемый пост)
работает с любым наследником эдитов

Опять мы уходим не в ту сторону!
Как то надо сделать универсальный способ получения этого текста!
Не зацЫкленый на наследниках едита!
Есть идея и соответствующий вопрос - может создать Тред и прикрутить его ко всем процессам,
и с помощью его контролировать ввод и вывод?
Способ по теории должен работать в любом месте ввода текста, где есть каретка!
Есть идеи?
Может даже намёки? smile smile
smile

Автор: Yanis 5.4.2006, 00:01
Цитата(hitter @ 4.4.2006, 20:32 Найти цитируемый пост)
Способ по теории должен работать в любом месте ввода текста, где есть каретка!

А если каретка нарисована, то работать уже небудет. Т.е. она и в стандартных Edit'ах нарисована, но есть функции для получения информации о каретке для работы с этими контролами. Если же я сам буду отрисовывать каретку, то у тебя ничего не выйдет smile

Автор: Romikgy 5.4.2006, 08:40
hitter, ты б определился где те надо брать курсор, а потом спрашивал бы, т.к.
Цитата(hitter @ 4.4.2006, 19:32 Найти цитируемый пост)
универсальный способ

имхо нет, если б был давно был бы в DRKB smile smile smile

Автор: hitter 5.4.2006, 11:51
Объясняю - зарегана hotkey , при нажатии на нее прога определяет хендл поля ввода -
Код

function GetCaretWindow: HWND;
 var
   w: HWND;
   aID, mID: DWORD;
   APoint: TPoint;
 begin
   Result:= 0;
   w:= GetForegroundWindow;
   if w <> 0 then
   begin
     aID:= GetWindowThreadProcessId(w, nil);
     mID:= GetCurrentThreadid;
     if aID <> mID then
     begin
       if AttachThreadInput(mID, aID, True) then
       begin
         w:= GetFocus;
         if w <> 0 then
          if GetCaretPos(APoint) then
          begin
           Windows.ClientToScreen(w, APoint);
           Result:=WindowFromPoint(APoint);
         end;
         AttachThreadInput(mID, aID, False);
       end;
     end;
   end;
 end;

Потом нада получить текст рядом с кареткой, до пробела!

Цитата(Romikgy @ 5.4.2006, 12:40 Найти цитируемый пост)
универсальный способ


Ну может сильно ГРОМКО сказал, ну действующий по крайней мере в большинстве полей ввода, и редактирования!

Цитата(hitter @ 5.4.2006, 00:32 Найти цитируемый пост)
создать Тред и прикрутить его ко всем процессам,
и с помощью его контролировать ввод и вывод


А это не кто не думал над этим?

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)