Vit, а как через sleep?
Значит вот:| Код |
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {PasswordDlg},
mnVar in 'mnVar.pas',
Unit3 in 'Unit3.pas' {AboutBox},
Unit4 in 'Unit4.pas' {OKBottomDlg1},
Unit5 in 'Unit5.pas' {Form5},
Unit6 in 'Unit6.pas' {Form6},
Unit7 in 'Unit7.pas' {Form7},
WorkIni in 'WorkIni.pas';
{$R *.res}
begin
Application.Initialize;
Form6:= TForm6.Create(Application); //Заставка, появляющаяся перед запуском программы
Form6.Show;
Form6.Update;
while Form6.Timer1.Enabled do
Application.ProcessMessages;
Form6.Free; //Если именно эту строчку закоментировать, то никаких проблем нету...
Application.CreateForm(TForm1, Form1); //Главное окно программы
Application.CreateForm(TForm7, Form7);
Application.CreateForm(TPasswordDlg, PasswordDlg);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TOKBottomDlg1, OKBottomDlg1);
Application.CreateForm(TForm5, Form5);
Application.Run;
end.
|
А вот сама форма:
| Код |
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, glFlyTxt, glLabel, glWizardHeader, glImage, StdCtrls;
type
TForm6 = class(TForm)
Timer1: TTimer;
glWizardHeader1: TglWizardHeader;
glLabel1: TglLabel;
glLabel2: TglLabel;
glBitmapImage1: TglBitmapImage;
Label1: TLabel;
glLabel3: TglLabel;
glLabel4: TglLabel;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
{$R *.dfm}
procedure TForm6.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=false;
end;
|
|
И без всяких там глючков.... Может просто вин или дельфи не так, как надо обрабатывает закрытие форм (точнее освобождение объектов...)