Öffnen-Fenster

**Cöster**

Hi!

Ich schreib gerade ein kleines Bildbearbeitungs-Programm. Wenn man im MainMenu unter Datei auf Öffnen klickt, soll ein neues Fenster sichtbar werden, auf dem man das Bild auswählen kann, die geladen werden soll (siehe Screenshot "so soll's sein").
Weiß vielleicht jemand von euch, wie man das machen kann?
Ich krieg's nämlich nur so weit hin, dass man den vollständigen Pfad in ein Edit-Feld eingeben muss (siehe Screenshot "so ist es") und nicht bequem aus einer ComboBox den Pfad auszuwählen und in dem Feld darunter alle Bilder in diesem Pfad anzuzeigen.

**EDatabaseError**

Schau dir ml den Opendialog / OpenImageDialog an

Mfg

**BenjaminH**

Einfach die Komponente TOpenDialog in das Formular einfügen.
Und so öffnest du den dann:

markieren

Delphi-Quellcode:

			If OpenDialog1.Execute Then

   Memo1.LoadFromFile(OpenDialog1.FileName;

**Cöster**

Erstmal danke für die schnellen Antworten.

Zitat von BenjaminH:

Einfach die Komponente TOpenDialog in das Formular einfügen.
Und so öffnest du den dann:

markieren

Delphi-Quellcode:

			If OpenDialog1.Execute Then

   Memo1.LoadFromFile(OpenDialog1.FileName;

Hab ich nicht ganz verstanden. Wofür Memo1?

Was muss ich in die Procedure schreiben, die aufgerufen wird sobald ich unter Datei auf öffnen klicke?

Wie stelle ich das geladene Bild in einer Image-Komponente dar?

**EDatabaseError**

markieren

Delphi-Quellcode:

			procedure bildoeffnen;

begin

 if OpenDialog1.Execute then

  Image1.LoadFromFile(OpenDialog1.FileName);

end;

Mfg

**Daniel B**

Die Memo1 war nur ein Beispiel, wie man an die Dateinamen der im OpenDialog angeklickten Dateien kommt. Brauchst Du also nicht. Du willst also ein Bild anzeigen.

Nimm ein TImage und setze es auf dein Formular. In den Eigenschaften des OpenDialogs, da gibt es Filter, stelle dort die gewünschte Dateiendung ein, der Formate die im Dialog anzeiget werden sollen. An den Dateinamen kommst du eben mit OpenDialog Filename, daher das Beispiel mit der Memo, diesen Namen weist du nicht einer Memo zu, sondern dem TImage, das ist deine Komponente die das Bild dann anzeigen wird.

**fkerber**

Hi!

Eine kleine Bitte:
Könntest du die Bilder im ersten Beitrag als Jpgs anhängen? Dann wäre es deutlich komfortabler, sich diese anzuschauen, da sie dann deutlich kleiner wären!

Danke.
Ciao, Frederic

**Cöster**

Zitat von EDatabaseError:

markieren

Delphi-Quellcode:

			procedure bildoeffnen;

begin

 if OpenDialog1.Execute then

  Image1.LoadFromFile(OpenDialog1.FileName);

end;

Mfg

Das kommt dann wahrscheinlich ins OnClose des OpenDialogs.

Und wie öffne ich den Dialog? Da muss es doch was geben wie OpenDialog1.Show oder so

@fkerber: hab ich gemacht

**Gausi**

Den Dialog öffnest du per OpenDialog1.Execute. Wenn er beendet wird, wird ein Boolean-Wert zurückgeliefert (True: eine Datei wurde ausgewählt, False: der Dialog wurde abgebrochen).

Der Code kommt also ins OnClick des Buttons, auf dem "Bild laden" steht

**Cöster**

Also ich kann den OpenDialog jetzt öffnen, aber wenn ich in diesem Dialog dann auf "Öffnen" oder "Abbrechen" klicke, passiert nichts. Der Dialog bleibt geöffnet. Erst wenn ich ca. 20 mal auf "Öffnen" bzw. "Abbrechen" geklickt hab, schließt der Dialog auch wirklich.

Hier sind die beiden Procedures:

markieren

Delphi-Quellcode:

			procedure TForm1.ffnen1Click(Sender: TObject);

begin

  OpenPictureDialog1.Execute;

end;

{...}

procedure TForm1.OpenPictureDialog1Close(Sender: TObject);

begin

  If OpenPictureDialog1.Execute then

    ImMain.Picture.LoadFromFile(OpenPictureDialog1.FileName);

end;

Was hab ich noch falsch gemacht?

Öffnen-Fenster

Öffnen-Fenster

Re: Öffnen-Fenster

Re: Öffnen-Fenster

Re: Öffnen-Fenster

Re: Öffnen-Fenster

Re: Öffnen-Fenster

Re: Öffnen-Fenster

Re: Öffnen-Fenster

Re: Öffnen-Fenster

Re: Öffnen-Fenster

Forumregeln

EDatabaseError Registriert seit: 11. Mai 2005 Ort: Göppingen 1.238 Beiträge Delphi 2007 Professional	#2 Re: Öffnen-Fenster 20. Aug 2006, 11:58 Schau dir ml den Opendialog / OpenImageDialog an Mfg Tobias It's not a bug, it's a feature. Meine Homepage :: http://uav-project.net/
	Zitat

BenjaminH Registriert seit: 14. Okt 2004 Ort: Freiburg im Breisgau 713 Beiträge Turbo Delphi für Win32	#3 Re: Öffnen-Fenster 20. Aug 2006, 12:00 Einfach die Komponente TOpenDialog in das Formular einfügen. Und so öffnest du den dann: markieren Delphi-Quellcode: If OpenDialog1.Execute Then Memo1.LoadFromFile(OpenDialog1.FileName; Benjamin
	Zitat

EDatabaseError Registriert seit: 11. Mai 2005 Ort: Göppingen 1.238 Beiträge Delphi 2007 Professional	#5 Re: Öffnen-Fenster 20. Aug 2006, 12:33 markieren Delphi-Quellcode: procedure bildoeffnen; begin if OpenDialog1.Execute then Image1.LoadFromFile(OpenDialog1.FileName); end; Mfg Tobias It's not a bug, it's a feature. Meine Homepage :: http://uav-project.net/
	Zitat

fkerber (CodeLib-Manager) Registriert seit: 9. Jul 2003 Ort: Ensdorf 6.723 Beiträge Delphi XE Professional	#7 Re: Öffnen-Fenster 20. Aug 2006, 12:37 Hi! Eine kleine Bitte: Könntest du die Bilder im ersten Beitrag als Jpgs anhängen? Dann wäre es deutlich komfortabler, sich diese anzuschauen, da sie dann deutlich kleiner wären! Danke. Ciao, Frederic Frederic Kerber
	Zitat

Cöster Registriert seit: 6. Jun 2006 589 Beiträge Turbo Delphi für Win32	#8 Re: Öffnen-Fenster 20. Aug 2006, 12:52 Zitat von EDatabaseError: markieren Delphi-Quellcode: procedure bildoeffnen; begin if OpenDialog1.Execute then Image1.LoadFromFile(OpenDialog1.FileName); end; Mfg Das kommt dann wahrscheinlich ins OnClose des OpenDialogs. Und wie öffne ich den Dialog? Da muss es doch was geben wie OpenDialog1.Show oder so @fkerber: hab ich gemacht
	Zitat

Gausi Registriert seit: 17. Jul 2005 847 Beiträge Delphi 11 Alexandria	#9 Re: Öffnen-Fenster 20. Aug 2006, 12:55 Den Dialog öffnest du per OpenDialog1.Execute. Wenn er beendet wird, wird ein Boolean-Wert zurückgeliefert (True: eine Datei wurde ausgewählt, False: der Dialog wurde abgebrochen). Der Code kommt also ins OnClick des Buttons, auf dem "Bild laden" steht
	Zitat