Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

логотип при загрузке программы   Найти похожие ветки 

 
quadronik ©   (2005-09-21 21:01) [0]

Вот решил в свою программу добавить такую же фичу как и ворде(при загрузке программы висит логотип ворда). Но ведь, как мне известно, первым грузится именно главная форма, а она у меня уже нагружена большим количеством компонентов.
Вопрос: можно ли сделать так чтобы этот эффект достигался не главной формой, следующей созданной? Как это реализовать?
Спасибо.


 
quadronik ©   (2005-09-21 21:08) [1]

прошу прощения.. за вопрос не в тему конференции... с братом заговорился..


 
Кефир87 ©   (2005-09-22 01:25) [2]

Ну так и сделать сплеш форму главной. в чем проблема? А после создания всех форм главню (сплэш) спрятать. Вообще можно есть способов...


 
Кефир87 ©   (2005-09-22 01:25) [3]

Ну так и сделать сплеш форму главной. в чем проблема? А после создания всех форм главню (сплэш) спрятать. Вообще можно есть способов...


 
GuAV ©   (2005-09-22 01:29) [4]

Можно создавать форму в инициализации. Приме:

.pas
unit Unit2;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, AppEvnts;

type
 TWaitForm = class(TForm)
   ApplicationEvents1: TApplicationEvents;
   procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 WaitForm: TWaitForm;

implementation

{$R *.dfm}

procedure TWaitForm.ApplicationEvents1Idle(Sender: TObject;
 var Done: Boolean);
begin
 Done := True;
 Release;
end;

var
 InitPrev: procedure;

procedure MyInitProcedure;
begin
 try
   TWaitForm.Create(Application).Show;
 finally
   if Assigned(InitPrev) then
     InitPrev;
 end;
end;

initialization
 InitPrev := InitProc;
 InitProc := @MyInitProcedure;
end.

.dfm
object WaitForm: TWaitForm
 Left = 480
 Top = 459
 Width = 475
 Height = 210
 Caption = "Splash"
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = "MS Sans Serif"
 Font.Style = []
 OldCreateOrder = False
 PixelsPerInch = 96
 TextHeight = 13
 object ApplicationEvents1: TApplicationEvents
   OnIdle = ApplicationEvents1Idle
   Left = 200
   Top = 72
 end
end


 
kami ©   (2005-09-22 02:42) [5]

в .dpr :

uses
 Forms,
 Unit1 in "Unit1.pas" {Form1},//здесь основная форма
 Unit2 in "Unit2.pas" {Form2};//а здесь - заставка

begin
 Application.Initialize;
 Form2:=TForm2.Create(Application);  
 Form2.Show;                          
 Application.CreateForm(TForm1, Form1);
 Application.Run;
end.


в Form1.OnCreate :
begin
 //--------------
 FreeAndNil(Form2);
 //--------------
end;



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.037 c
1-1127814803
Archer84
2005-09-27 13:53
2005.10.16
Пожалуйста объясните


3-1125987508
Shopot
2005-09-06 10:18
2005.10.16
Главная и подчиненная таблицы.


1-1127475917
__DATA__
2005-09-23 15:45
2005.10.16
Получение данных из Exel-я


8-1116960003
Eraser
2005-05-24 22:40
2005.10.16
Формирование wav файла из данных в фотмате PCM


2-1125911392
Антоний
2005-09-05 13:09
2005.10.16
Разбить несколько слов...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский