Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как показать модальное окно только после CreateRectRgn?


И. Павел ©   (2009-01-25 18:17:00) 

Здравствуйте.
Я пытаюсь сделать анимированное появление диалогового окна, так, чтобы окно выводилось на экран по частям, с помощью  функции SetWindowRgn. При появлении окна, оно должно быть скрыто полностью:

R:=CreateRectRgn(0, 0, 0, 0);
SetWindowRgn(Form.Handle, R, True);
Form.Show;

проблема в том, что такой код не работает - форма все равно выводится целиком.  Если использовать метод Show вместо ShowModal, то простая форма скроется, но я еще использую скины AlphaControls, и даже с Show ничего не получается, и форма мелькает перед началом анимации.

Подскажите, пожалуйста, как можно выводить форму на экран уже после того, как заданы ее видимые и невидимые участки?

Заранее спасибо.


@!!ex   (2009-01-26 14:07:00) [1]

> [4] И. Павел   (26.01.09 14:01)

Не знаю что такое альфаконтролс, но собственно поэтому я и написал вторую часть сообщения:

> чтобы другие части прогаммы(компоненты?) не задавали свой
> регион или свойства конфликтующие с вамшим регионом.

:))
То что без этого альфаконтрола все работает говорит о том, что там деется нечто конфликтующее.
выясняйте, что мешает.


И. Павел   (2009-01-26 14:01:00) [2]

Даже если писать Show непосредственно перед SetWindowRgn, рисуется рамка окна. Скорее всего, это из за того, что я использую AlphaControls - без скинов такой подход работает даже если сначала задавать регион а потом выводить форму.


@!!ex   (2009-01-26 10:37:00) [3]

> [2] И. Павел   (26.01.09 09:59)

Я ж по русски написал:

> Сначала показываешь, потом задаешь регион


И. Павел   (2009-01-26 09:59:00) [4]

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

 R:=CreateRectRgn(0, 0, 0, 0);
 SetWindowRgn(Form2.Handle, R, True);
 Form2.ShowModal;


приводит к появлению целого модального окна.

В принципе, сразу рисуется только рамка окна, так что я пока использую BorderStyle:=bsNone.


@!!ex   (2009-01-25 21:03:00) [5]

Сначала показываешь, потом задаешь регионо. И ВНИМАТЕЛЬНО следишь, чтобы другие части прогаммы(компоненты?) не задавали свой регион или свойства конфликтующие с вамшим регионом.


Наверх

Титульная страница Поиск, карта сайта Написать письмо