Einzelnen Beitrag anzeigen

Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.639 Beiträge
 
#8
  Alt 11. Jul 2002, 13:01
Das glaube ich Dir aufs Wort.
Du weist ja auch eine nicht initialisierte Variable zu.

Du musst den Dateinamen aus dem Dialog auch erst benutzen, um das Bild in Dein TPicture zu laden.

Sieht (ungetestet!) in etwa so aus:
Code:
[b]procedure[/b] TForm1.BT_HintergrundClick(Sender: TObject);
[b]var[/b]
  L_Picture: TPicture;
[b]begin[/b]
  [b]if[/b] BildLaden.execute [b]then[/b]
  [b]begin[/b]
    L_Picture.LoadFromFile(BildLaden.FileName);
    Image1.Picture := L_Picture;
    Image1.Align := alTop;
    Image1.AutoSize := true;
    Image1.Cursor := CrCross;
    Image1.Stretch := True;
  [b]end[/b];
[b]end[/b];
Grüßle,

Sebastian;
Sebastian Gingter
Phoenix - 不死鳥, Microsoft MVP, Rettungshundeführer
Über mich: Sebastian Gingter @ Thinktecture Mein Blog: https://gingter.org
  Mit Zitat antworten Zitat