Commencer par reagarder ce qui est en rouge (pour Create)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormHide(Sender: TObject);
private
{ Déclarations privées }
protected
procedure loaded; override;
public
Constructor Create(AOwner:TComponent); override;
destructor destroy; override;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormActivate(Sender: TObject);
begin
ShowMessage('OnActivate');
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowMessage('OnClose');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage('OnCreate');
end;
procedure TForm1.FormDeactivate(Sender: TObject);
begin
ShowMessage('OnDesactivate');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
ShowMessage('OnDestroy');
end;
procedure TForm1.FormHide(Sender: TObject);
begin
ShowMessage('OnHide');
end;
constructor TForm1.Create(AOwner: TComponent);
begin
//placez ici le code qui doit s'exécuter au début du Create
ShowMessage('Début Create');
inherited;
//placez ici le code qui doit se faire à la fin du Create
ShowMessage('Fin Create');
end;
destructor TForm1.destroy;
begin
inherited;
end;
procedure TForm1.loaded;
begin
inherited;
ShowMessage('Loaded');
end;
end.
