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

Вниз

отображение других форм, кроме главного, в панели задач   Найти похожие ветки 

 
Andrei__   (2002-08-08 05:19) [0]

Для отображения других форм, кроме главного, в панели задач использую метод:

procedure TMyForm.CreateParams(var Params :TCreateParams); {override;}
begin
inherited CreateParams(Params); {CreateWindowEx}
Params.ExStyle := Params.ExStyle or WS_Ex_AppWindow;
end;

Делается это для того, чтобы можно было не закрывая одного окна беспрепятственно работать с остальными. MDI-интерфейс в данном проекте не уместен.
Проблема в том, что если, например, из такой формы вызвать какую-нибудь модальную форму (тот же диалог об открытии файла), потом перейти на главную форму или любое другое приложение, а затем вернуться на исходную форму через StatusBar, то вызванная нами модальная форма оказывается ПОД вызвавшей ее формой. И т.к. она модальная, то никаких действий, естественно, производить нельзя. Перейти на эту самую модальную форму можно с помощью Alt+Tab, но не будешь же в документации указывать такие "особенности" программы. Может кто-нибудь помочь в этом вопросе?


 
Ученик   (2002-08-08 09:48) [1]

procedure TForm1.DoActivate(Sender: TObject);
begin
Screen.Forms[0].BringToFront
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnActivate := DoActivate
end;



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

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

Наверх





Память: 0.44 MB
Время: 0.006 c
1-60714
Olivka
2002-08-06 23:35
2002.08.19
Чем писать на диски?


1-60703
vuk
2002-08-06 17:36
2002.08.19
Delphi7


6-60783
MAB
2002-06-06 22:13
2002.08.19
Создаю чат для локальной сети


3-60526
UnDISCOvery
2002-07-30 11:58
2002.08.19
Как создать автоинкрементное поле SQL-запросом ?


14-60824
Alx2
2002-07-24 09:49
2002.08.19
На Землю летит двухкилометровый астероид





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