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

Вниз

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

 
France   (2002-11-14 17:12) [0]

Привет! Кто подскажет, как по имени заголовка MDIChild сделать это самое окно активным? Пытаюсь сделать что-то типа SetActiveWindow(FindWindow(nil,"MyCaption")), но ничего не выходит. Подскажите...


 
Ru   (2002-11-14 17:27) [1]

ParentHandle:=findwindow(nil,"ParentWindow");
ChildHandle:=findwindowex(Parentwindow,nil,"ChildWindow",nil);
//точнее смотри хелп
setactivewindow(ChildHandle);


 
France   (2002-11-14 17:37) [2]

Процедура заработала, но окно не активируется... Может еще кто что скажет?


 
Ru   (2002-11-14 17:45) [3]

Функция SetActiveWindow
может поэтому:

function SetActiveWindow(Wnd: HWnd); HWnd;

Активизиpует окно веpхнего уpовня.

Паpаметpы:
Wnd: Идентификатоp окна.

Возвpащаемое значение:
Пpедыдущее активное окно.

функция находится в файле user32.dll


 
Андрей Прокофьев   (2002-11-14 17:49) [4]

может, поможет
for i := 0 to MainForm.MDIChildCount - 1 do
if MainForm.MDIChildren[i].Caption = "XXX" then
begin
MainForm.MDIChildren[i].Show;
Exit;
end;
:))


 
France   (2002-11-14 17:54) [5]

Интересно то, что в обоих случаях при вызове этой процедуры главная форма теряет фокус!


 
France   (2002-11-14 17:59) [6]

>> Андрей Прокофьев © (14.11.02 17:49)
А вот это работает!!! Спасибо!!!


 
han_malign   (2002-11-14 18:03) [7]

Дите вставлено в основную форму как компонента, так что попробуйте SetFocus/SetFocusedControl.



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

Форум: "Потрепаться";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
14-14774
Anar
2002-11-13 17:12
2002.12.05
У меня вопрос по Flash


1-14684
_toltec
2002-11-26 03:54
2002.12.05
Вариантный массив


1-14493
gary5555
2002-11-23 18:25
2002.12.05
ComboBox


3-14364
Calm
2002-11-19 13:30
2002.12.05
MS SQL - уведомление внешнего приложения


1-14669
123000
2002-11-22 15:21
2002.12.05
Resizing





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский