ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как по HWND получить TForm?
11 сообщений из 11, страница 1 из 1
Как по HWND получить TForm?
    #32372290
lustig
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lustig
Участник
Собственно, топик. Спасибо.
...
Рейтинг: 0 / 0
10.01.2004, 17:12
| Ответить | Цитировать | Написать  
Как по HWND получить TForm?
    #32372630
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
StarWind
Участник
собственно только пробежаться по списку компонентов Components[Index: Integer]: TComponent , проверить форма это или нет и если да, то посмотреть и сравнить ее handle
...
Рейтинг: 0 / 0
12.01.2004, 03:25
| Ответить | Цитировать | Написать  
Как по HWND получить TForm?
    #32373021
olga1999
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
olga1999
Участник
x:=FindControl(HWND);
if X.InheritsFrom(TForm) then
Result:=TFom(x);
...
Рейтинг: 0 / 0
12.01.2004, 13:36
| Ответить | Цитировать | Написать  
Как по HWND получить TForm?
    #32373115
Фотография Alexey Popov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey Popov
Участник
function FormSearch(const Handle: HWND): TForm;
var
i: Integer;
begin
Result:= nil;
for i:= 0 to Screen.FormCount - 1 do
if Screen.Forms .Handle = Handle then
begin
Result:= Screen.Forms;
Break
end
end;
...
Рейтинг: 0 / 0
12.01.2004, 14:13
| Ответить | Цитировать | Написать  
Как по HWND получить TForm?
    #32373189
Фотография Alexey Popov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey Popov
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
function FormSearch(const Handle: HWND): TForm; 
var 
i: Integer; 
begin 
Result:= nil; 
for i:=  0  to Screen.FormCount -  1  do 
  if Screen.Forms[i].Handle = Handle then 
    begin 
      Result:= Screen.Forms; 
      Break 
    end 
end;
...
Рейтинг: 0 / 0
12.01.2004, 14:44
| Ответить | Цитировать | Написать  
Как по HWND получить TForm?
    #32373257
lustig
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lustig
Участник
Спасибо всем, кто отclickнулся.
...
Рейтинг: 0 / 0
12.01.2004, 15:17
| Ответить | Цитировать | Написать  
Как по HWND получить TForm?
    #32373847
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
Win32 programmer`s reference:

The GetClassName function retrieves the name of the class to which the specified window belongs.
Код: plaintext
1.
2.
3.
4.
int GetClassName(
    HWND hWnd,	// handle of window
    LPTSTR lpClassName,	// address of buffer for class name
    int nMaxCount 	// size of buffer, in characters
   );


Parameters

hWnd

Identifies the window and, indirectly, the class to which the window belongs.

lpClassName

Points to the buffer that is to receive the class name string.

nMaxCount

Specifies the length, in characters, of the buffer pointed to by the lpClassName parameter. The class name string is truncated if it is longer than the buffer.

Return Values

If the function succeeds, the return value is the number of characters copied to the specified buffer.
If the function fails, the return value is zero. To get extended error information, call GetLastError.




eNose
...
Рейтинг: 0 / 0
13.01.2004, 08:54
| Ответить | Цитировать | Написать  
Как по HWND получить TForm?
    #32373988
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
для делфей не покатит.
...
Рейтинг: 0 / 0
13.01.2004, 10:47
| Ответить | Цитировать | Написать  
Как по HWND получить TForm?
    #32374277
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
С чего бы вдруг???

FindWindow прекрасно работает с именем класса.
Думаешь, GetClassName вернет что-то левое?




eNose
...
Рейтинг: 0 / 0
13.01.2004, 13:07
| Ответить | Цитировать | Написать  
Как по HWND получить TForm?
    #32374286
Фотография JibSkeart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JibSkeart
Участник
конечно все прокатит .
____
...
Рейтинг: 0 / 0
13.01.2004, 13:11
| Ответить | Цитировать | Написать  
Как по HWND получить TForm?
    #32374440
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
какразтаки - если я унаследую от формы свой класс
в итоге имя класса мне ничего не скажет ...
тут тадо лесть в ClassInfo и в InheritsFrom - короче в RTTI - а вопрос был проще.
...
Рейтинг: 0 / 0
13.01.2004, 14:29
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как по HWND получить TForm?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]