Форум: "Начинающим";
Текущий архив: 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]Можно создавать форму в инициализации. Приме:
.pasunit 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.
.dfmobject 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