Вниз
Скачать: CL | DM;

Почему-то окошко не активируется...   Найти похожие ветки 

← →
cvg   (2006-12-26 11:32) [0]

Вот, когда-то оно работало, и соответствующее окошко становилось верхним и активным, а сейчас не срабатывает... С чего бы это?


  MainForm.FormStyle := fsStayOnTop;
  Process := TLaunchedProcess.Create("info.exe");
  With Process Do
   Try

    wHandle := FindWindow("InfoClass");
    ActivateWindow(wHandle);

    h_mdi := FindWindow(wHandle,"MDIClient",nil,0);
    h_pars := FindWindow(h_mdi,"InfoMDITable",nil,0); // таблица параметров
    if h_pars = 0
    then raise Exception.Create("Не найдена таблица параметров!");

    windows.BringWindowToTop(h_pars);
Application.ProcessMessages;
   Finally
    Free;
   End;


← →
Desdechado ©   (2006-12-26 13:31) [1]

много кода без пояснений, что работало и что неактивное
про типы вообще молчу


← →
cvg   (2006-12-26 15:43) [2]

Определения типов:

Process: TLaunchedProcess;
h_mdi, h_pars, wHandle:HWND;

Есть некая программа (доступа к ее исходникам нет), в которой необходимо сделать активным одно из ее окошек. "Info.exe" -- имя экзешника проги. Тип главного окна проги -- "InfoClass", типы подчиненных окон -- "MDIClient" и "InfoMDITable". Исходно функция windows.BringWindowToTop(h_pars) корректно делала активным нужное окно. Потом в течении ну, скажем, года этот режим не использовался, тогда как в код программы -- в других его частях -- вносились разнообразные изменения, тогда как эта часть была просто закомментарена. Теперь, раскомментарив ее, я вдруг обнаружил, что заданное окно активным не делается. Переменные wHandle, h_mdi и h_pars приобретают некоторые значения, функция windows.BringWindowToTop(h_pars) не срабатывает (во всяком случае, заданное окно не активируется). В чем дело -- абсолютно непонятно :(.


← →
alex_*** ©   (2006-12-26 15:52) [3]

а в h_pars пишется что-ть осмысленное?


← →
cvg   (2006-12-26 16:12) [4]

Да. Привожу даже конкретные цифры:

wHandle = 3477370
h_mdi = 266408
h_pars = 135250



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.046 c
2-1166873475
Серый
2006-12-23 14:31
2007.01.14
удаление из stringgrid


6-1149488733
sound81
2006-06-05 10:25
2007.01.14
Проверка актуальности антивирусных баз


2-1166618448
регинка
2006-12-20 15:40
2007.01.14
как нам тяжело новичкам


2-1166643170
addi
2006-12-20 22:32
2007.01.14
Memo


15-1166630469
SteepeWolf
2006-12-20 19:01
2007.01.14
Посоветуйте книгу для начинающего пользователя ПК.




   Наверх