Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Июнь 2003   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Информационный Канал Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHIMASTER.ru

Выпуск от 29.06.03 09:04

Кое-что из нашей кладовки   |x|
  • Завершение работы Windows +Evgenius+ Evgenius2@list.ru   (27.06.03 19:16)
    Прикол с Завершением работы.
    **************************************************
    ОБЯЗАТЕЛЬНО рочтите текстовый файл в архиве перед запуском
    **************************************************
    »»» Скачать: исходные тексты (10кб) демонстрационный EXE файл (113кб)
Лучшее из нашего FAQ   |x|
Заставка для программы
Сведения о программе, авторские права и т.д., лучше оформить в виде отдельной формы и показывать ее при запуске программы (как это сделано в Word).
Сделать это не сложно:
1. Создаете форму (например SplashForm).
2. Объявляете ее свободной (availableForms).
3. В Progect Source вставляете следующее (например):




    program Splashin;
    uses
        Forms,
        Main in 'MAIN.PAS',
        Splash in 'SPLASH.PAS'
    {$R *.RES}
    begin
        try
        SplashForm := TSplashForm.Create(Application);
        SplashForm.Show;
        SplashForm.Update;
        Application.CreateForm(TMainForm, MainForm);
        SplashForm.Hide;
        finally
        SplashForm.Free;
        end;
        Application.Run;
    end.



И форма SplashForm держится на экране пока выполняется Create в главной форме. Но иногда она появляется и пропад! ает очень быстро, поэтому нужно сделать задержку:
1. Добавляете на форму таймер с событием:


    procedure TSplashForm.Timer1Timer(Sender: TObject);
    begin
      Timer1.Enabled := False;
    end;



2. Событие onCloseQuery для формы:




    procedure TSplashForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
      CanClose := Not Timer1.Enabled;
    end;

3. И перед SplashForm.Hide; ставите цикл:



    repeat
      Application.ProcessMessages;
    until SplashForm.CloseQuery;


4. Все! Осталось установить на таймере период задержки 3-4 секунды.
5. На последок, у такой формы желательно убрать Caption:
SetWindowLong (Main.Handle,GWL_STYLE, GetWindowLong(Main.Handle, GWL_STYLE) AND NOT WS_C! APTION OR WS_SIZEBOX);



Коментарий от "Sevastyanov Andrey" (mystic2000@newmail.ru)
Работает это, если честно, коряво. Если прога грузиться долго, то наступив  на эту заставку другим приложением, а потом убрав ее вы получите серое  пятно до конца загрузки приложения. А если оно грузиться как Delphi 6...
По-моему, лучше создавать splash-форму в отдельном потоке.

Коментарий от "digimaster" (digimaster@mail.ru)
Лучше сделать так:

procedure TForm1.FormCreate(Sender: TObject);
var
  t:integer;
begin
  SplashForm:=TSplashForm.Create(nil);
  SplashForm.Show;
  t:=GetTickCount;
  while (GetTickCount-t)<5000 do begin //пока не прошло 5000 милливек
   sleep(0);
   Application.ProcessMessages;
  
if not SplashForm.Visible then break;
  end!
;
  //Application Init Code here...
  
  SplashForm.Free;
end;

Не забудьте добавить SplashForm unit в список USES главной формы.

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
А СОБСТВЕННО ЗАЧЕМ? Немного об пользовательских интерфейсах. Часть 3.
Термин юзабилити становится все более модным. Его начинают склонять все кому не лень. Не удивлюсь если в скором времени, они будут зазывать пользователей слоганами вроде: "В нашей программе самое лучшее юзабилити. Покупайте только у нас!"... И возникает резонный вопрос, помимо этой своеобразной моды на юзабилити, существуют ли другие основания, для того чтобы программисты дружною толпой кинулись в дебри проектирования интерфейсов и эргономики?
Новинки книжного рынка   |x|
Программирование игр для Windows. Советы профессионала (+ CD-ROM)
Книга предназначена для читателей, интересующихся вопросами разработки игр в операционной системе Windows. В ней освещены разнообразные аспекты программирования игр - от азов программирования до серьезного рассмотрения различных компонентов DirectX, от простейших физических моделей до сложных вопросов искусственного интеллекта. Книга будет полезна как начинающим, так и профессиональным разработчикам игр для Windows, хотя определенные знания в области программирования (в частности, языка программирования C или C++), математики и физики существенно облегчат изучение материала.
Автор: Андре Ламот
Другие сайты о DELPHI   |x|
Delphi Challenge
Соревнования по Delphi
» Оценка сайта: 3
Опрос населения :)
Стоит ли сделать англоязычную версию этого сайта?
»»» Да
»»» Нет
Для души

Хокку дня
Бабочка в траве
Открывает тишину
Мира без меня.

Афоризмы
Совесть? Свят, свят, нечистая!

Фраза дня
Кто юзал мой логин и весь его выюзал?!

Дурацкие законы (информация предоставлена сайтом kurilka.com)
В городе Блит в Калифорнии (США) вы можете носить ковбойские сапоги только в том случае, если у вас есть не менее двух коров.
В городе Барлингейм (США) в том же штате запрещено плеваться - если только вы не на бейсбольном стадионе во время матча.

И на закуску коротенький анекдот
- Дорогая, я опять не могу найти свой галстук! Куда ты снова шкаф переставила?

Фотоприколы.
Начните день с хорошего настроения!
http://www.delphimaster.ru/cgi-bin/prikol.pl?id=952

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.ru)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное