Forum: Win32/Win64 API (native code)
Delphi
by Memo,
27. Aug 2003
Ich hab es mir gerade nach mal angesehen. Wormid hatte es in seinem Beitrag schon drin(haben wir blos alle überlesen). Man brauch nur mit
OpenDialog1.FileName := ''
zurücksetzen und dann geht es auch ohne dynamisches Erzeugen.
Forum: Win32/Win64 API (native code)
Delphi
by Memo,
27. Aug 2003
bitte dir
Trotzdem komisches Verhalten.
Forum: Win32/Win64 API (native code)
Delphi
by Memo,
27. Aug 2003
Das einzigste was bei meinen Versuchen geklappt hat, war
procedure TForm1.Button1Click(Sender: TObject);
var open :TOpenPictureDialog;
begin
try
open := TOpenPictureDialog.Create(self);
open.InitialDir := ExtractFilePath(Application.ExeName);
IF open.Execute THEN
image1.picture.loadfromfile(open.filename);
finally