Réponse acceptée !
bon l'image est dans la form2 je suppose?
si c'est le cas alors c'est normal puisque dans l'évènement OnClose tu as Bmp.Free;
donc quand tu réouvres la form Bmp n'est plus assigné
Il te faut donc modifier le code comme suit :
var
Form2: TForm2;
bmp : TBitMap;
implementation
{$R *.DFM}
procedure TForm2.FormPaint(Sender: TObject);
begin
Canvas.Draw(0, 0, Bmp);
end;
Initialization
Bmp := TBitMap.Create;
Bmp.LoadFromFile('Cloud.bmp');
Finalization
Bmp.Free;
end.
@+
Cirec