Semoga berhasil... Jika ada masalah kirim email ke : putu_dalungcity@yahoo.co.id
Nama : Abryan Tata Pangarsa
Web : abryantp.blogspot.com
Buat 2 Form
Sourcecode [ Membuat program splash screen ] :
Untuk Form1 :
unit Abryan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ExtCtrls;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
Untuk Form2 :
unit Abryan;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg;
type
TFrmsplash = class(TForm)
Timer1: TTimer;
Image1: TImage;
procedure TmMainTimerTimer(Sender: TObject);
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frmsplash: TFrmsplash;
implementation
{$R *.dfm}
procedure TFrmsplash.TmMainTimerTimer(Sender: TObject);
begin
Timer1.Enabled := False ;
End;
end.
Untuk Project :
program Abryan;
uses
Forms,
Abryan in 'Abryan.pas' {Form1},
Abryan in 'Abryan.pas' {Form2};
{$R *.res}
begin
Form2 := TForm2.Create(Application);
Form2.Show;
Form2.Update;
while form2.Timer1.Enabled do
Application.ProcessMessages;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Form2.Hide;
Form2.Free;
Application.Run;
end.