Delphi. Заставка программы
Когда ты, запускаешь Delphi, PhotoShop или ещё что-нибуть, то перед запуском появляется заставка, с именем программы и ещё всякой лабудой... :-D Так вот, сейчас мы напишем примерчик с заставкой, который ты можешь использовать в своих прогах!
Ну чего ты смотришь на свой монитор? Запускай Delphi !!! Запустил? Молодец! Теперь сохраняй его под именем.... Ну допустим
zastavka. Первая наша форма, будет основная, теперь надо создать ещё одну прогу, на которая и будет заставкой. Нажимай на кнопку New Form
или File->New->Form... Потом нажми пимпу сохранить всё, Delphi попросит сохранить новую форму, сохрани в том-же каталоге. У новой формы свойство BorderStyle ставь в bsNone, это значит что у формы не будет ни заголовка, ни чего... и поэтому можешь нарисовать чё-нить путёвое, и разместить на форме.
Например:
Ну это всё украшательства, пора приступить к прграммированию. Кидай на Form2 с закладки System, компонент TTImer
. В свойстве Invertal(через какое время таймер обновится) поставь 5000(это милисек или 5 сек) что-бы пользователь успел разглядеть наше художество :-). Потом кликай по таймеру 2 раза(чтобы дельфи создал процедуру) и там надо написать вот что:
procedure TForm2.Timer1Timer(Sender: TObject);
begin
 Form1.Show; // показываем первую форму
 Form2.close; // закрываем вторую форму
end;
Нажми на Ctrl+F9 и дельфи тебе скажет что в таком-то unit`e, используется другой Unit, привязать их друг к другу(это я обьяснил по-грубому), нажимай Yes. Теперь 2 раза кликай по первой форме,и пиши вот что:
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=False;
end;
Это значит, как только окно отобразиться - сразу спрячется. Ой, Чуть не забыл...
Кликай Project->View Source. После строки
Application.CreateForm(TForm2, Form2);
Пиши:
Form2.Show;
Ну вот и готова наша программа, надеюсь я понятно обьяснил... Но на всякий случай... Дельфи создает все формы,
но когда создаётся 1ая форма, она сразу прячется, создаётся вторая форма, таймер её показывает тока 5 сек, и показывает 1ую форму.
Если чего не понятно, то пиши на мыло
vostepan@mail.ru
На всякий случай вот тебе исходнЯк