Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.01.2011, 10:22   #1
8adim
Пользователь
 
Регистрация: 25.01.2011
Сообщений: 12
Счастье Прозрачный логотип

Возникла необходимость перед стартом главной формы программы показать (полу)ПРОЗРАЧНЫЙ логотип, как это, например, сделано в Nero8.
Он должен повисеть, пока грузится БД, а потом появляется главная форма.
Проблема в его прозрачности, он не квадратный, а сложный рисунок, через него должны просвечиваться элементы рабочего стола.
Кто-то уже делал такое?
Спасибо.
8adim вне форума Ответить с цитированием
Старый 27.01.2011, 10:31   #2
asmodey1
Подтвердите свой е-майл
 
Регистрация: 19.12.2010
Сообщений: 808
По умолчанию

Это называется заставка или Splash Form.
Обсуждалось миллион раз.
Пример:
Код:
В файле проекта:
begin
  FSplash:=TFSplash.Create(Application);
  FSplash.Show;
  FSplash.Update;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

В файле главной формы:
procedure TForm1.FormActivate(Sender: TObject);
begin
...
FSplash.Free;
...
end;
Помимо этого ознакомьтесь еще с установкой прозрачности формы - тоже миллион раз обсуждалось.
Свойства формы AlphaBlend и AlphaBlendValue.
asmodey1 вне форума Ответить с цитированием
Старый 27.01.2011, 12:36   #3
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

Цитата:
сложный рисунок
регионы ...примеров достаточно.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 27.01.2011, 12:54   #4
8adim
Пользователь
 
Регистрация: 25.01.2011
Сообщений: 12
По умолчанию

Спасибо.
Обошелся легкой кровью:

Выбрал цвет, которого у меня нет на рисунке (clWhite, например)
дальше
Код:
TForm1.Color := clWhite;
TForm1.TransparentColor := True;
TForm1.TransparentColorValue := clWhite;
и всё, форма полностью прозрачная, виден только рисунок.
А AlphaBlend-ом сделел плавное проявление.

Последний раз редактировалось Stilet; 27.01.2011 в 14:39.
8adim вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Голосование за логотип. Финал. mutabor Свободное общение 135 04.01.2011 03:38
Flash логотип для сайта Sarumjan PHP 17 09.08.2009 11:47
Логотип сылкой на первую страницу... Vovchik HTML и CSS 9 08.04.2008 22:42
3D логотип GAGARIN-NEW Компоненты Delphi 13 08.04.2008 01:05
Логотип Stanislav Свободное общение 6 24.10.2007 16:39