Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Вниз

не находится хэндл у самой программы   Найти похожие ветки 

 
cvg   (2006-12-28 17:08) [0]

Программа делает активным окно другой программы, а потом должна обратно перевести фокус на себя. У той другой программы имя класса = "InfoClass", хэндл находится без проблем. У самой программы (согласно утилите Spy++) имя класса = "TMainForm". Но функция FindWindow почему-то упорно возвращает ноль :(. В чем может быть дело?

Примеры успешного и неуспешного обращения к функции FindWindow:

    wHandle := FindWindow("InfoClass");
    h_prg := FindWindow("TMainForm");


 
Рамиль ©   (2006-12-28 18:08) [1]

А Self.Handle уже не катит?


 
cvg   (2006-12-29 08:13) [2]

Хмм... Всё это хорошо, но почему-то строка windows.BringWindowToTop(self.Handle); окно текущей программы в фокус не помещает. Почему бы это?


 
Elen ©   (2006-12-29 08:19) [3]


>  а потом должна обратно перевести фокус на себя.

BringWindowToTop(Form1.Handle) Где Form1 - главная форма


 
cvg   (2006-12-29 08:31) [4]

windows.BringWindowToTop(MainForm.Handle); тоже никакого видимого влияния на ход выполнения программы не оказывает :(


 
Elen ©   (2006-12-29 08:51) [5]


> cvg

Вот тебе выкрутас один: приводит форму наверх

Form1.FormStyle:=fsStayOnTop;
Form1.FormStyle:=fsNormal;


Не суди за код строго, мне иногда помогает.


 
cvg   (2006-12-29 08:58) [6]

Спасибо, Elen, сработало! :)


 
Elen ©   (2006-12-29 09:03) [7]


> cvg

Пожалуйста. Креативные Извраты всегда работают ;)



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

Форум: "Начинающим";
Текущий архив: 2007.01.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.061 c
15-1167708835
Думкин
2007-01-02 06:33
2007.01.21
DOMXML PHP


2-1167293326
Neket
2006-12-28 11:08
2007.01.21
Процессы


6-1151827566
C@N
2006-07-02 12:06
2007.01.21
счетчик трафика


2-1167323023
Kostafey
2006-12-28 19:23
2007.01.21
Null в SQL и Delphi


8-1148541508
Der Nechk@ssoff
2006-05-25 11:18
2007.01.21
PlayList





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский