Выделка шкурок в домашних условиях

6th (6th@mail.ru)

Спецвыпуск: Хакер, номер #053, стр. 053-080-6

Создаем новую форму, убираем рамку, кладем Image, присваиваем свойству Align значение alClient, загружаем картинку с заставкой. Теперь в Project->Options ставим эту форму в список Available Forms. Заставить все это работать довольно просто, в коде проекта после begin пишем:

try

//создаем нашу форму с заставкой

frSplash := TfrSplash.Create(Application);

frSplash.Show;

frSplash.Update;

//держим ее некоторое время

repeat

Application.ProcessMessages;

until frSplash.CloseQuery;

//убиваем ее и продолжаем работу

frSplash.Hide;

finally

frSplash.Free;

end;

// дальше все без изменений

Но это еще не все. Если программа загружается быстро, а похвастаться сплэшем все-таки хочется, заставим форму держаться на экране хотя бы несколько секунд. Кидаем Timer и ставим интервал на две-три секунды:

procedure TfrSplash.Timer1Timer(Sender: TObject);

begin

//через две секунды таймер выключится и…

Timer1.Enabled := False;

end;

procedure TfrSplash.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

//…мы разрешаем закрыть форму

CanClose := not Timer1.Enabled;

end;

Также можно добавить код, закрывающий сплэш по щелчку или нажатию клавиши.

Куда пойти?

Сайты производителей ты найдешь в начале статьи, astalavista.box.sk. Адрес, я думаю, знакомый, так что проблем не будет. Напоследок хотелось бы привести адрес прекрасного форума по Delphi, где тебя всегда направят на путь истинный: www.delphimaster.ru. Если что-то непонятно, мой e-mail ты знаешь :). Удачи в создании настоящего X-интерфейса!

P.S. Пока я писал эту статью, Almediadev успели выпустить очередную версию DynamicSkinForm – 6.12. Вот тебе образец быстро развивающегося проекта :).

CD

На нашем диске ты найдешь исходники плеера и несколько популярных скиновых движков.