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