ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу Окно как в офисе[delphi]
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

Окно как в офисе[delphi]
  #1  
Старый 10.02.2010, 16:23
marcos
Участник форума
Регистрация: 08.11.2009
Сообщений: 114
Провел на форуме:
201148

Репутация: -4
По умолчанию Окно как в офисе[delphi]
Всем привет. Подскажите как сделать что бы вылетало окно перед запуском программы как в офисе
 
Ответить с цитированием

  #2  
Старый 10.02.2010, 16:30
ZdezBilYa
Участник форума
Регистрация: 29.08.2008
Сообщений: 151
Провел на форуме:
1551582

Репутация: 107
Отправить сообщение для ZdezBilYa с помощью ICQ
По умолчанию
ищи примеры splash screen
 
Ответить с цитированием

  #3  
Старый 11.02.2010, 00:01
RaX
Познающий
Регистрация: 07.06.2008
Сообщений: 48
Провел на форуме:
247923

Репутация: 52
Отправить сообщение для RaX с помощью ICQ
По умолчанию
Сделай эту сплэш форму главным окном, убери заголовок окна(вроде свойство BorderStyle поставить на bsnone) и отображай все остальные окна после выполнения всех нужных тебе загрузок сплэш формы.
 
Ответить с цитированием

  #4  
Старый 11.02.2010, 08:26
RumShun
Постоянный
Регистрация: 27.10.2008
Сообщений: 380
Провел на форуме:
1249808

Репутация: 149
Отправить сообщение для RumShun с помощью ICQ
По умолчанию
я делаю так, может быть коряво, но просто, в проекте пишу
PHP код:
program Primer;

uses
  Forms,
  Controls,
  SysUtils,
  Dialogs,
  UnitMainForm in 'UnitMainForm.pas' {MainForm},
  UnitZastForm in 'UnitZastForm.pas' {ZastForm},
  UnitAboutBox in 'UnitAboutBox.pas' {AboutBox};

{$R *.res}

begin
 try
  Application.Initialize;
  ZastForm:=TZastForm.Create(Application);
  ZastForm.Show;
  ZastForm.Update;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TAboutBox, AboutBox);
  ZastForm.Hide;
  ZastForm.Free;
 except
  on e: Exception do
  begin
   MessageDlg(e.Message, mtError,[mbOk],0);
   MainForm.Memo1.Lines.Add(e.Message);
  end
  else
  begin
   MessageDlg('Unknow error!', mtError,[mbOk],0);
  end;
 end;
  Application.Run;
end. 
форма ZastForm соответственно заставка, у нее
borderstyle bsNone
formstyle fsStayOnTop
position poScreenCenter
ну и какойнибуть имайже на всю морду
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Delphi]/[Pascal] Задай вопрос, получи ответ Isis С/С++, C#, Delphi, .NET, Asm 6762 17.06.2010 21:23
Если ты попал... (записки бывалого программиста) ErrorNeo Статьи 73 29.05.2010 13:44
Взлом домофона Метаком andreipup Болталка 11 14.08.2009 16:06
Как уничтожить вирус Penetrator? Aikaram Статьи 0 14.06.2009 11:18
Социальная инженерия. Профессиональное программирование. Последовательный взлом dinar_007 Болталка 15 23.12.2008 12:30



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ