tomtom41 It's not a bug, it's a feature | alors voici mon code :
une seule form, et quelques procedures/fonctions
Code :
- unit WPTom_0;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
- IdTCPClient, IdHTTP, jpeg, WinInet, ComCtrls, IniFiles;
- type
- TForm1 = class(TForm)
- IdHTTP1: TIdHTTP;
- wallpaper: TButton;
- Cadre: TGroupBox;
- ProgressDownload: TProgressBar;
- DownloadStatus: TLabel;
- MajFile: TButton;
- DateFile: TLabel;
- procedure wallpaperClick(Sender: TObject);
- procedure MajFileClick(Sender: TObject);
- procedure Download(Taille:integer);
- procedure DisplayDate;
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.dfm}
- function InternetConnectionCheck:Boolean;
- (...)
- procedure Convertir;
- (...)
- procedure TForm1.DisplayDate;
- (...)
- procedure TForm1.Download(Taille:integer);
- (...)
- procedure TForm1.wallpaperClick(Sender: TObject);
- (...)
- procedure TForm1.MajFileClick(Sender: TObject);
- (...)
- procedure Oncreate(Sender: TObject);
- (...)
- begin
- (...)
- end.
|
Code :
- program WPTom;
- uses
- Forms,
- WPTom_0 in 'WPTom_0.pas' {Form1};
- {$R *.res}
- begin
- Application.Initialize;
- Application.CreateForm(TForm1, Form1);
- Application.Run;
-
- end..
|
merci |