Zitat von
integer:
Delphi-Quellcode:
procedure TForm1.BitBtn_loadimageClick(Sender: TObject);
begin
with TOpenPictureDialog.Create(form1) do
try
filter := 'Bitmaps(*.bmp)|*.bmp|Alle Dateien(*.*)|*';
Options := [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing];
if Execute then
begin
form1.img_original.Picture.LoadFromFile(FileName);
und so weiter...
tut zwar nichts zur sache, aber benutz bitte mal in dem Code "Self" statt "Form1".
wenn du Form1 nimmst, legst du dich explizit auf diese eine Objekt (d.h. diese eine Variable mit genau diesem Namen) fest, mit Self wird immer das aufrufende Objekt angesprochen.
edit: und wie schon gesagt, den OpenDialog kannst du auch von Delphi automatsich erstellen lassen, der kümemrt sich dann auch ums freigeben etc. (hast du da überhaupt dran gedacht?)
See my shadow changing, stretching up and over me.
Soften this old armor. Hoping I can clear the way
By stepping through my shadow, coming out the other side.
Step into the shadow. Forty six and two are just ahead of me.