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

Вниз

Как получить дискриптор окна моей программы?   Найти похожие ветки 

 
turonix ©   (2004-02-02 11:26) [0]

Была какая-то функция но я забыл ее название поэтому никак найти не могу


 
Alexander666 ©   (2004-02-02 11:28) [1]

Application.Handle?
FormName.Handle?


 
turonix ©   (2004-02-02 11:34) [2]

Все я разобрался: GetActiveWindow


 
Rouse_ ©   (2004-02-02 11:58) [3]

GetActiveWindow - вернет тебе хэндл активного окна и не обязательно что это окно будет твоим...


 
Thick   (2004-02-02 12:25) [4]

Если пишеш на АРІ, то CreateWindow возвращает этот самый дескриптор


 
Игорь Шевченко ©   (2004-02-02 13:53) [5]

Rouse_ ©   (02.02.04 11:58)


> вернет тебе хэндл активного окна и не обязательно что это
> окно будет твоим...


А чьим еще оно сможет быть ?


 
Rouse_ ©   (2004-02-02 14:08) [6]

> [5] Игорь Шевченко ©   (02.02.04 13:53)

procedure TForm1.Timer1Timer(Sender: TObject);
var
 H: HWND;
 Buf: array [0..255] of Char;
begin
 H := GetActiveWindow;
 GetWindowText(H, @Buf[0], 256);
 Memo1.Lines.Add(IntToStr(H) + " " + String(Buf));
end;


Если запустить данный код и посворачивать форму, просто делать ее не активной, то можно увидеть что иногда он возвращает ноль, иногда Form1 а иногда Project1

Ps: Просто неверно выразился ;)


 
Anatoly Podgoretsky ©   (2004-02-02 14:17) [7]

Это три активных окна, но твоих


 
Rouse_ ©   (2004-02-02 14:26) [8]

> [7] Anatoly Podgoretsky ©   (02.02.04 14:17)
Нет, в одном варианте возвращается Application.Handle - это Project1
Во втором Form1.Handle
А в третьем вообще ничего не возвращается...

И судя по вопросу "Как получить дискриптор окна моей программы?" неизвесно какое именно окно хочет получить автор вопроса, вот я и сказал что не обязательно будет твое (ну т.е. не то которое тебе нужно...)



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

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

Наверх




Память: 0.48 MB
Время: 0.03 c
1-1079920174
YT
2004-03-22 04:49
2004.04.11
Использование TStrnLst.Objects


1-1079766739
Иван
2004-03-20 10:12
2004.04.11
Где скачать InterBase Express (IBX) для Delphi5


14-1082377810
panov
2004-04-19 16:30
2004.04.11
Индексирование текста.


14-1079704079
WELLiON
2004-03-19 16:47
2004.04.11
hInstance - что такое и с чем его едят


7-1075581226
V10
2004-01-31 23:33
2004.04.11
не открываются новые окна в IE