Problem mit TOpenPictureDialog

[uligerhardt]

Zitat von prelude247:

Funktioniert nicht, kann man den OpenPictureDialog nicht verwenden wenn man keine Form hat!?

Folgendes Progrämmchen funktioniert bei mir wie erwartet:

Delphi-Quellcode:

program Project12;

{$APPTYPE CONSOLE}

uses
  jpeg,
  ExtDlgs;

var
  OpenDialog : TOpenPictureDialog;

begin
  OpenDialog := TOpenPictureDialog.Create(nil);
  if OpenDialog.Execute then
    Writeln(OpenDialog.FileName)
  else
    Writeln('(nix)');
  OpenDialog.Free;
  Readln;
end.

HTH, Uli.