1
23
45
67
89
1011
1213
1415
1617
1819
2021
2223
2425
2627
2829
3031
3233
3435
3637

procedure TForm1.FormCreate(Sender: TObject);
  var i   : Integer;      Bmp : TBitmap;
  begin  Form1.DoubleBuffered := true;
  Form1.Width := edtTestText.Width+5;  Application.HintPause     := 100;  //L'intervalle de temps qui s'écoule avant que n'apparaisse le Hint dft=500
  Application.HintHidePause := 1000;//L'intervalle de temps attendu avant de cacher le Hint dft 2.5s  if not DirectoryExists('Curseurs') then begin
    if not CreateDir('Curseurs') then begin      ShowMessage('Impossible de créer le répertoire "Curseurs"' + #13
                + '    L''application est abandonnée.');      Application.Terminate;
    end;  end;
  if not DirectoryExists('Bibliotheque') then begin    if not CreateDir('Bibliotheque') then begin
      ShowMessage('Impossible de créer le répertoire "Bibliotheque"' + #13                + '    L''application est abandonnée.');
      Application.Terminate;    end;
  end;  {Chargement des curseurs éventuellement disponibles.}
  for i := 1 to NbreFichiers('.cur','Curseurs') do    if FileExists('Curseurs\Stab'+IntToStr(i)+'.cur') then
          Screen.Cursors[i] := LoadCursorFromFile(PAnsiChar('Curseurs\Stab'                                                          +IntToStr(i)+'.cur'));
  Bmp := TBitmap.Create;  try
    for i := 1 to NbreFichiers('.bmp','Curseurs') do begin          if FileExists('Curseurs\Stab'+IntToStr(i)+'.bmp') then begin
            Bmp.LoadFromFile(PAnsiChar('Curseurs\Stab'+IntToStr(i)+'.bmp'));            imlIcones.AddMasked(Bmp,clBlack);
          end;    end;
  finally  Bmp.Free; end;end;