Вниз
Скачать: 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.028 c
15-1166456161
Ringo
2006-12-18 18:36
2007.01.14
О вредном излучении из системных блоков.


15-1166470232
AntiUser
2006-12-18 22:30
2007.01.14
Почему люди не любят Microsoft? АРГУМЕНТИРОВАНО.


2-1166909334
школьник :-)
2006-12-24 00:28
2007.01.14
ADO и транзакции


1-1164205790
doncova1
2006-11-22 17:29
2007.01.14
нет полосы прокрутки


8-1148479532
Костя_909
2006-05-24 18:05
2007.01.14
В строке buf[0]:= virtualalloc(... Delphi пишет Operator not appl




   Наверх