Главная страница
    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.008 c
14-14791
MsGuns
2002-11-13 20:09
2002.12.05
Покупаем комп


1-14563
Salvator
2002-11-26 19:08
2002.12.05
Работа с Word через Delphi


1-14657
cardinal
2002-11-25 16:40
2002.12.05
Уменьшение межстрочного расстояния


1-14650
Andrushk
2002-11-25 14:57
2002.12.05
Normal to MDI


1-14605
3asys
2002-11-22 10:07
2002.12.05
Кодировка в TRichEdit в run-time





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