Kurze Frage zur PaintBox

[Darkchild]

Hi,

das hatte ich auch schon, also in der Form:

Delphi-Quellcode:

procedure Tfrmpaintmaster.ffnen1Click(Sender: TObject);
var
Bild:TBitmap;
begin
if OpenPictureDialog.execute then
  begin
  Bild := TBitmap.Create;
  Bild.LoadFromFile (OpenPictureDialog.FileName);
    with PaintBox do
      begin
      PaintBox.Width := Bild.Width;
      PaintBox.Height := Bild.Height;
      Canvas.Draw(0,0,Bild);
      end;
  end;
end;

Aber dann Flasht das Bild nur kurz auf und ist dann nicht mehr zu sehen.
Also auch erst beim 2ten mal.

Gruss
Darkchild