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

Активность окна   Найти похожие ветки 

← →
markers ©   (2004-11-17 17:40) [0]

Вообщем разобрался я полностью с хоткеями, но вопрос такой, когда я поймал определенную клавишу я вызываю диолог, но активной моя прога не становится (Естественно) активным остается преждняя прога, вот вопрос, как сделать активным моё окно, я многое пробовал банальный SetFocus не помогает пробовал Application.RestoreToMosts Нифига... А надо чтоб форма была активна... Помогите пли;)


← →
ssk ©   (2004-11-17 17:48) [1]

SetActiveWindow() ?


← →
cvg   (2004-11-17 17:53) [2]


windows.BringWindowToTop(h_pars);

где wHandle -- это что-то типа

h_mdi := FindWindow(wHandle,"MDIClient",nil,0);


← →
markers ©   (2004-11-17 17:54) [3]

Чё-то не канает.........


← →
cvg   (2004-11-17 17:58) [4]

Запускаешь свою прогу, запускаешь Spyxx.exe, определяешь handle окна, далее см. выше.


← →
markers ©   (2004-11-17 18:00) [5]

А что-нибудь без дополнительного екзешника


← →
markers ©   (2004-11-17 18:01) [6]

А что-нибудь без дополнительного екзешника


← →
cvg   (2004-11-17 18:06) [7]

Дык один раз определишь -- и потом ведь на всю жизнь :)


← →
markers ©   (2004-11-17 18:10) [8]

cvg   (17.11.04 18:06) [7]
Всмысле?


← →
cvg   (2004-11-17 18:21) [9]

В смысле, что один раз хэндл определил -- и больше тебе этот spyxx не нужон. Если надо, пиши на alternativvaNOSPAM@yandex.ru ("NOSPAM", конечно, удали). Отвечу только завтра, т.к. домой пошел уже.


← →
DelphiN! ©   (2004-11-19 10:44) [10]

SetForegroundWindow(FindWindow("YourMainFormClass","YourMainFormCaption"));


← →
Elena   (2004-11-25 10:05) [11]

HPrevWin := FindWindow("TMainForm", "MainForm");
 if HPrevWin <> 0 then
   SetForegroundWindow(HPrevWin);
 end;
В теории должно работать на практике не работает.
Добавляю
 ShowWindow(HPrevWin,SW_SHOW);
Окно активизируется, только не минимизируется, если было до вызова метода минимизировано

 HPrevWin := FindWindow("TMainForm", "MainForm");
 if HPrevWin <> 0 then
   SetForegroundWindow(HPrevWin);
   ShowWindow(HPrevWin,SW_SHOW);
 end;



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

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



Память: 0.47 MB
Время: 0.023 c
1-1103487729
redlord
2004-12-19 23:22
2005.01.09
tstringgrid смена ячейки для ввода


4-1100860875
PRM
2004-11-19 13:41
2005.01.09
Как запустить xcopy


8-1092253140
Константинов
2004-08-11 23:39
2005.01.09
Измерение уровня звукового сигнала.


1-1103824947
zokzok
2004-12-23 21:02
2005.01.09
Фреймы


4-1101205185
Herosin
2004-11-23 13:19
2005.01.09
как определить сколько логических дисков на винте и их имена?




   Наверх