Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.04;
Скачать: CL | DM;

Вниз

Текущий Handle   Найти похожие ветки 

 
rentgen ©   (2003-10-05 06:41) [0]

Подскажите как? Как узнать Handle, например, текущего Edit"a?
Можно-ли вообще узнать это 1-ой коммандой?


 
Song ©   (2003-10-05 09:43) [1]

GetFocus


 
Rentgen ©   (2003-10-05 17:07) [2]

Я хочу послать текст, например, Edit"у.
Делаю так:

h:=GetFocus;
SendMessage(h,WM_CHAR,ord(txt[n]),0);

Срабатывает только на моей форме. А например в чужой InputBox ничего неприходит :(

Может я чего не так делаю?


 
Rentgen ©   (2003-10-05 17:09) [3]

Извиняюсь за " txt[n]" - это у меня в коде так.
Я хочу послать текст, например, Edit"у.
Делаю так:

h:=GetFocus;
SendMessage(h,WM_CHAR,ord("A"),0);
Срабатывает только на моей форме. А например в чужой InputBox ничего неприходит :(

Может я чего не так делаю?


 
Opuhshii ©   (2003-10-05 18:14) [4]

2Rentgen © (05.10.03 17:09) [3]
прочесть хелп о GetFocus, особливо секцию Remarks, там найти ответ на свой вопрос.


 
Song ©   (2003-10-05 18:24) [5]

2Rentgen ©
Так ведь в твоём вопросе и речи не было про чужое приложение. Откуда же такие круглые глаза?
Вообщем, AttachTreadInput применяй.


 
Rentgen ©   (2003-10-06 09:11) [6]

To Song ©
Так ведь в твоём вопросе и речи не было про чужое приложение.
Ты прав.

Поискал по универсальному поиску на этом сайте(и на королевстве). Ничего ненашел по AttachThreadInput. Может кто знает ссылки по этой теме? Или пример работы с этой функцией?


 
KosilkA ©   (2003-10-06 13:27) [7]

if attachthreadinput(getwindowthreadprocessid(getforegroundwindow,nil),GetCurrentThreadId,true)
then
begin
.................
работаем с getfocus , postMessage и пр
.................
end;


 
NAlexey ©   (2003-10-06 16:45) [8]

>KosilkA ©
Нифигасебеутебяинтересныйстильнаписания...


 
rhf   (2003-10-07 04:21) [9]

2 rentgen

function GetGlobalFocus:HWND;
var
CurThreadID,
TargetThreadID : DWORD;
Attached : boolean;
begin
Attached:=FALSE;
TargetThreadID:=GetWindowThreadProcessID(GetForegroundWindow,nil);
CurThreadID:=GetCurrentThreadID;
if TargetThreadID<>CurThreadID then Attached:=AttachThreadInput CurThreadID,TargetThreadID,TRUE);
Result:=GetFocus;
if Attached then AttachThreadInput(CurThreadID,TargetThreadID,FALSE);
end;


 
KosilkA ©   (2003-10-07 11:55) [10]


> NAlexey © (06.10.03 16:45) [8]
> >KosilkA ©
> Нифигасебеутебяинтересныйстильнаписания...

затоработает



Страницы: 1 вся ветка

Текущий архив: 2003.12.04;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.007 c
11-11597
mega-chel
2003-03-24 13:56
2003.12.04
Нужны diskinfo, и dsgnintf под 7 delphi,


4-11733
Andriy Tysh
2003-10-07 20:30
2003.12.04
Убрать заголовок окна


4-11715
Lummder
2003-10-09 19:32
2003.12.04
GetWindowText


4-11736
mOOx_
2003-10-06 19:16
2003.12.04
Как я могу нарисовать рамку выделения


6-11647
bushmen
2003-10-03 13:21
2003.12.04
Webconnection