Разработка приложений в системе Delphi. Шейкер Т.Д. - 136 стр.

UptoLike

ВУЗ: 

ДВФУ | Владивосток

Составители: 

Рубрика: 

fmZast.Show;
fmZast.Update;
Application.CreateForm(TfmMain, fmMain);
fmZast.Hide;
fmZast.Free;
Application.Run;
end.
unit zast;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TfmZast = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
end;
var
fmZast: TfmZast;
implementation
{$R *.DFM}
procedure TfmZast.FormCreate(Sender: TObject);
begin
try
Image1.Picture.LoadFromFile('ZastPicture.bmp');
except;
end; end; end.
unit Main;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs;
type
TfmMain = class(TForm)
procedure FormCreate(Sender: TObject);
end;
var
fmMain: TfmMa
implementation
in;
uses zast;
{$R *.DFM}
procedure TfmMain.FormCreate(Sender: TObject);
var t:longint;
begin
t:=getTickCount div 1000;
while ( getTickCount div 1000 ) < t+5 do;
end;
end.
136
  fmZast.Show;
  fmZast.Update;
  Application.CreateForm(TfmMain, fmMain);
  fmZast.Hide;
  fmZast.Free;
  Application.Run;
end.


unit zast;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
  TfmZast = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  end;
var
  fmZast: TfmZast;

implementation
{$R *.DFM}
procedure TfmZast.FormCreate(Sender: TObject);
begin
try
  Image1.Picture.LoadFromFile('ZastPicture.bmp');
  except;
  end; end; end.


unit Main;
interface
uses   Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs;
type
  TfmMain = class(TForm)
  procedure FormCreate(Sender: TObject);
  end;
var
  fmMain: TfmMain;
implementation
uses zast;
{$R *.DFM}
procedure TfmMain.FormCreate(Sender: TObject);
var t:longint;
begin
 t:=getTickCount div 1000;
 while ( getTickCount div 1000 ) < t+5 do;
end;
end.



                                136

Страницы