Problem mit TOpenPictureDialog

[prelude247]

Hallo!

In meiner Klasse soll eine Methode Foto_laden "eingebaut" werden.
Für die Auswahl hab ich an einen OpenPictureDialog gedacht.

Ich habe jedoch keine Ahnung was ich als Parameter in der Create-Anweisung angeben muß.

Delphi-Quellcode:

procedure TKlasse.Foto_laden;
var
  OpenDialog : TOpenPictureDialog;
begin
  OpenDialog.Create(AOwner);
  if OpenDialog.Execute then
    Foto.LoadFromFile(OpenDialog.FileName);
  OpenDialog.Free;
end;

MfG
Prelude247

[himitsu]

Ich fürchte so ... der Rückgabewert von Create ist wichtig ^^
OpenDialog := TOpenPictureDialog.Create(Form1);

[prelude247]

Danke himitsu, für die schnelle Antwort!

OpenDialog := TOpenPictureDialog.Create(Form1); Funktioniert nicht, kann man den OpenPictureDialog nicht verwenden wenn man keine Form hat!?

MfG
Prelude247

[Gollum]

Hallo,

kann man.
OpenDialog:=TOpenPictureDialog.Create(nil); oder
OpenDialog:=TOpenPictureDialog.Create(Application);

[prelude247]

Ich habe jetzt beide Varianten getestet.
Bei beiden kann ohne Fehler kompiliert werden, aber der Dialog wird nicht angezeigt.

MfG
Prelude247

[himitsu]

Wenn ich mich recht erinnere, dann wird intern auf/über das übergebene lternfenster auf alle Fenster der Anwendung zugegriffen und diese wärend der Anzeige des Dialogs deaktivert ... eventuell gibt's ja ja'n Problemchen, wenn dat fehlt?

Ansonsten bleibt noch selber machen ... also über GetOpenFileName (WinAPI), allerdings mußt du da die Anzeige des Bildes selber machen.


Ich häng gerade (oder besser gesagt immernoch) auch an solchen erweiterten non-VCL-Dialogen und kann dir sagen einfach wird's nicht, aber ich hoffe es sieht irgendwann mal ordentlich aus ._.

[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.

[prelude247]

So, ich bins nochmal.

Also, ich hab den Quelltext von Uli einfach mal in meine Klasse kopiert und an meine Bedürfnisse angepasst. Kein Fehler beim kompilieren und auch kein Fehler bei der Ausführung.

Ich habe zwar keine Ahnung wo der Fehler war, aber jetzt funktioniert es.

Danke an alle die geholfen haben.

Bis zum nächsten Problem.

Prelude247