Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Программа и интерфейс
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 02.12.2013, 18:55
sova_bos sova_bos вне форума
Прохожий
 
Регистрация: 27.03.2012
Адрес: Ставрополь
Сообщения: 12
Версия Delphi: XE3/7
Репутация: 10
Вопрос Transparent у формы-приветствия

Есть две формы. (Form1-главная, Form3-приветствие)
Выставляем в главной форме TransparentColor в True и нужный TransparentColorValue - все работает, форма прозрачная.
Делаем такие же манипуляции со второй формой - и ничего
только вторая форма - типа окно приветствия, и вызывается до главной вот таким способом:

Код:
procedure TForm1.FormShow(Sender: TObject);
begin
form3.showmodal;
end;
спустя 3 секунды приветствие как положено исчезает и отображается главная форма.

Код:
procedure TForm3.Timer1Timer(Sender: TObject);
begin
form3.Close;
end;

что, где, как изменить нужно, чтоб Transparent сработал?
__________________
Всё будет правильно
Ответить с цитированием
  #2  
Старый 02.12.2013, 22:51
Аватар для Decoding
Decoding Decoding вне форума
Местный
 
Регистрация: 03.06.2006
Адрес: Почту найдете на моем сайте
Сообщения: 576
Версия Delphi: D10.2
Репутация: 214
По умолчанию

Все нормально работает.
Выкладывай нерабочий исходник, поглядим...
Ответить с цитированием
  #3  
Старый 03.12.2013, 11:57
sova_bos sova_bos вне форума
Прохожий
 
Регистрация: 27.03.2012
Адрес: Ставрополь
Сообщения: 12
Версия Delphi: XE3/7
Репутация: 10
По умолчанию

Не могу прикрепить ни один файл (ни архивом ни поотдельности) - ошибка: "Некорректный файл" =(
__________________
Всё будет правильно
Ответить с цитированием
  #4  
Старый 03.12.2013, 12:00
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от sova_bos
Не могу прикрепить ни один файл (ни архивом ни поотдельности) - ошибка: "Некорректный файл" =(
Наверное слишком большой. Выложи на внешнем файлообменнике, например здесь: http://zalil.ru/
Ответить с цитированием
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение:
sova_bos (03.12.2013)
  #5  
Старый 03.12.2013, 14:17
sova_bos sova_bos вне форума
Прохожий
 
Регистрация: 27.03.2012
Адрес: Ставрополь
Сообщения: 12
Версия Delphi: XE3/7
Репутация: 10
По умолчанию

Спасибо, скачать можно отсюда =)
http://zalil.ru/34835050
__________________
Всё будет правильно
Ответить с цитированием
  #6  
Старый 03.12.2013, 15:02
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от sova_bos
Спасибо, скачать можно отсюда =)
http://zalil.ru/34835050
Если в этом исходнике закомментировать строку "AnimateWindow(Handle, 100,aw_blend);" то вторая форма тоже нормально становится прозрачной.
Ответить с цитированием
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение:
sova_bos (03.12.2013)
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:41.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter