| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Найти активный CONTROL и поиграться им [D6]

MaxSit ©   (2002-09-02 01:23:00) 

Доброй ночи, Мастера!
Созрел (наболел) вопрос. Написан хук, который при нажатии на определенную кобинацию клавиш, считывает информацию с активного приложения, с контрола (например, EDIT и т.п.) на котором установлен фокус, обрабатывет эту информацию и помещает обратно результат.
Непосредственно вопрос: как считать этот проклятый текст и как его обратно запихнуть?

Заранее спасибо.

---

MaxSit   (2002-09-02 16:02:00) [1]

Спасибо! Все заработало! Текст читается.

Созрело еще пару вопросов, по возможности ответьте:
1.) Это все касается Edit-подобных классов, а как можно прочитать данные в гриде (значение под фокусом), если в данный момент таблица не редактируется. Может какие идеи есть или наводки.
2.) Как можно узнать по HWND (еще есть строковый ресурс наименования класса компонента), что одним из прародителей данного контрола, есть класс TCustomEdit
(например, MyFindControl is TCustomEdit).

Заранее спасибо.

---

Skier   (2002-09-02 15:41:00) [2]

>MaxSit

Окончательно, примерно так :


const
REQUIRED_LENGTH = 255;
var
Len: Integer;
Text: PChar;
begin
Text := AllocMem(REQUIRED_LENGTH);
try
Len:=SendMessage(GetFocus, WM_GETTEXT, REQUIRED_LENGTH, LongInt(Text));
WriteLn(Text);
finally
FreeMem(Text, REQUIRED_LENGTH);
end; //try
end;


---

Skier   (2002-09-02 15:37:00) [3]

>MaxSit

Text := AllocMem(255);
Len := SendMessage(RequiredControl.Handle,WM_GETTEXT, 255,LongInt(Text));
SetString(SamText,Text,Len);
FreeMem(Text, 255);


---

Старый Паскалист   (2002-09-02 15:26:00) [4]

Ты под буфер Text: PChar память не выделил.

---

MaxSit   (2002-09-02 15:22:00) [5]

Делаю так:

var Len: Integer;
Hw: HWND;
Text: PChar;
SamText: String;
begin
Hw:=GetFocus;
...
разные проверки
...
Len:=SendMessage(Hw,WM_GETTEXT,0,LongInt(@Text));
SetString(SamText,Text,Len);
end;

Hw -- определяется верно;
Text -- всегда пустой;
SamText -- всегда пустой;

Где я сделал ошибку.

---

Skier   (2002-09-02 15:03:00) [6]

>MaxSit
WM_GETTEXT ?

---

MaxSit   (2002-09-02 14:59:00) [7]

Может, кто поможет !!!
FindControl не работает, так как находится в DLL.
FindVCLWindow не работает, так как использует FindControl.

---

MaxSit   (2002-09-02 02:08:00) [8]

Задача упрощена за счет функции GETFOCUS, кот. возвращает Handle активного в данный момент окна, но как проверить, что это нужный мне класс и считать текст?

---

Наверх