private { Déclarations privées } procedure AppActivate(Sender: TObject); procedure AppDeactivate(Sender: TObject);
procedure TForm1.AppActivate(Sender: TObject); begin Label1.Caption := 'Application active'; end ; procedure TForm1.AppDeactivate(Sender: TObject); begin Label1.Caption : = 'Application désactivée'; end;
procedure TForm1.FormCreate(Sender: TObject); begin Application.OnActivate := AppActivate; Application.OnDeactivate := AppDeactivate; end ;
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.