Just nu i M3-nätverket
Jump to content

Skylt


Ingemar Sandberg

Recommended Posts

Ingemar Sandberg

Hur gör man för att göra en skylt som kommer upp i någon sekund. Ja som finns i de allra flesta program.

Link to comment
Share on other sites

Petter Holmström

Följande kod är från mitt program Telefonboken.

SplashScreen är skylten.

 

View Source:

 

begin

SplashScreen := TSplashScreen.Create(Application);

SplashScreen.Show;

SplashScreen.Update;

Application.Title := 'Telefonboken 3.0';

Application.CreateForm(TDataM, DataM);

Application.CreateForm(TMainForm, MainForm);

Application.CreateForm(TFindDlg, FindDlg);

Application.CreateForm(TResultDlg, ResultDlg);

Application.CreateForm(TEmailDlg, EmailDlg);

Application.CreateForm(TEmailSettingDlg, EmailSettingDlg);

Application.CreateForm(TAboutBox, AboutBox);

Application.CreateForm(TConnectedUsersDlg, ConnectedUsersDlg);

Application.CreateForm(TServAdminDlg, ServAdminDlg);

Application.CreateForm(TPasswordDlg, PasswordDlg);

Application.CreateForm(TPrintDlg, PrintDlg);

Application.CreateForm(TNamnListPriv, NamnListPriv);

Application.CreateForm(TNamnListArb, NamnListArb);

Application.CreateForm(TBackupDlg, BackupDlg);

Application.CreateForm(TAktivtNamn, AktivtNamn);

Application.CreateForm(TExportDlg, ExportDlg);

SplashScreen.Hide;

SplashScreen.Free;

Application.Run;

end.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...