Opendialog Dateinamenerweiterung ändern

[padavan]

Hallo Delphianer,

möchte mit einem Button in meinem Player Playlisten öffnen und Lieddateien.
Für die Playlisten soll Multiselect := false; sein und für die Lieddateien Multiselect := true;

Ich bekomms aber nicht gebacken, es während der Laufzeit umzustellen.

Es gibt eine Möglichkeit mit OnTypeChange, aber das erwartet Parameter und ich hatte es mir mehr so vorgestellt:

Delphi-Quellcode:

if Opendialog1.Filterindex = 1 then Opendialog1.options[...]; // usw

Mir ist glaub ich klar, dass es mit dem OnTypeChange funktionieren muss, aber ich weiß nicht wie

Danke und Gruß Padavan

[Thanatos81]

Hi padavan!

Versuch mal das hier, bei mir funzt es:

Delphi-Quellcode:

procedure TForm1.OpenDialog1TypeChange(Sender: TObject);
begin
  with TOpenDialog(Sender) do
    begin
      if FilterIndex = 1
        then Options := Options + [ofAllowMultiSelect]
        else Options := Options - [ofAllowMultiSelect];
    end;
end;

//Edit
Du könntest auch das 'with TOpenDialog(Sender) do' weglassen, aber falls du noch nen zweiten TOpenDialog hast, der exakt das gleiche Verhalten haben soll, brauchst du so nur bei dessen OnTypeChange auf das OnTypeChange von OpenDialog1 verweisen

[padavan]

Hallo Thanatos81,

danke erstmal für die schnelle Hilfe.

Leider hat sich mein Problem nicht gelöst.
Dein Ansatz konnte ich nur wie folgt umsetzen:

Wenn ich den Opendialog aufrufe und das Dialogfenster erscheint und ich dann den Typ ändere wird ja auch eine Prozedur ausgelöst, aber die Eigenschaft Multiselect oder nicht Multiselect wird dann erst übernommen, wenn ich den Dialog schließe und erneut öffne.
Ich bräuchte es aber so, dass die Eigenschaft übernommen wird, während der Dialog geöffnet ist.

Vielen Dank schonmal

[Thanatos81]

Zitat:

Zitat von padavan

Wenn ich den Opendialog aufrufe und das Dialogfenster erscheint und ich dann den Typ ändere wird ja auch eine Prozedur ausgelöst, aber die Eigenschaft Multiselect oder nicht Multiselect wird dann erst übernommen, wenn ich den Dialog schließe und erneut öffne.
Ich bräuchte es aber so, dass die Eigenschaft übernommen wird, während der Dialog geöffnet ist.

Vielen Dank schonmal

Das hatte ich tatsächlich nicht getestet :oops: Hab auch gerade kein Delphi zur Hand (papas Laptop ;-) ), aber ein einfaches Refresh oder Update wird wahrscheinlich nur ein neuzeichnen, nicht ein neu einlesen der Optionen veranlassen, oder?

[padavan]

So ist es, das hab ich alles versucht.
Tja, neu aufbauen, das ist wahrscheinlich der Knackpunkt, aber wie.
Trotzdem danke!
Gruß
Padavan

[padavan]

wirklich niemand ne Idee?
:oops:

[Karl-Heinz]

Wenn es wirklich wichtig ist, erstelle Dir eine eigene TOpenDialog-Komponente, bei der Du das nötige Verhalten einbauen kannst.
Ich habe gerade keine zur Hand, aber es gibt genug davon bei Torry.
Oder - wenn Du den Delphi-Quellcode hast - eine neue Komponente auf Basis des vorhandenen Delphi-Codes machen.

Tja, und dann mußt Du dich durch den entsprechenden Quellcode fieseln und die entsprechenden Teile abändern. Im Delphi-Dialog kommt das Flag "ofAllowMultiSelect" in DefineProperties und GetFileNames vor. Hier mußt Du also eingreifen.

Viel Erfolg,

Karl-Heinz Krönig

[padavan]

Dann werd ich das so machen müssen,
hätte aber nicht gedacht, dass das ein spezielles Problem ist, sondern eine "ganz normale" Sache.

Muss mir halt mal anschauen, ob ich mich in dem OpenDialog Quelltext zurecht finde.
Falls ich erfolgreich bin, werde ich´s hier veröffentlichen.

Gruß
Padavan