Exemples en Delphi

• Exemple d'utilisation de delphiX et de ses composants

jet.dpr est le début d'un jeu créé avec les composants développés par Hori (http://www.ingjapan.ne.jp/hori/)
Les sources du début du jeu, où une boule se déplace et vient rebondir sur des murets, sont pour delphi 3 (ou + ?) .
téléchargez les sources ( 27 ko )  ; Le jeu entier (291 ko)
 
 

• Appelez un fichier d'aide .hlp

var h:boolean;
  begin
     Application.HelpFile:='equaw31.hlp';
    h:=application.helpcontext(n° de la page appelée);
end;
 

• Un logo au démarrage

Version 16 bits
Votre projet, par exemple, contient 3 fiches (form1, form2, form3).
La 4° fiche (form4) contient votre logo.
Définissez les propriétés de votre fiche, puis modifiez le fichier projet .dpr comme suit :

uses
  SysUtils,WinTypes,WinProcs,Messages,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,StdCtrls,
  Unit1 in 'UNIT1.PAS' {Form1},
  Unit2 in 'UNIT2.PAS' {Form2},
  Unit3 in 'UNIT3.PAS' {Form3},
  Unit4 in 'UNIT4.PAS' {Form4};

{$R *.RES}

    var t,t1:integer;
 begin
   t:=gettickcount;(prise du temps au lancement de l'application)
  form4:=tform4.create(application);
     form4.show;
  form4.Update;
  Application.Title := 'essai';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  repeat
  t1:=gettickcount;
  until t1>t+1500;(attend un certain temps en milliseconde avant de refermer la fiche)

   form4.close;
  Application.Run;
end.