Upps, also das geht nicht.
Könnte man ja mal einen Feature-Request für anlegen (falls es den nicht schon gibt)
Wobei das Attachment natürlich schöner ist. (einen gekürzten Header kann man natürlich dennoch zeigen ... ohne "private"-Abschnitte und anderes unwichtiges Zeugs)
Zitat:
Delphi-Quellcode:
aFileDialogEvent:=TFileDialogEvent.Create;
aFileDialogEvent.ParentDialog:=self;
aFileDialogEvent.QueryInterface(IFileDialogEvents,FileDialogEvents);
Es ist nicht wirklich gut, wenn man Interface und Objektzeiger auf das selbe Objekt hält (vorallem nicht bei aktiver Referenzzählung des Interfaces).
Die Variable aFileDialogEvent abschaffen und den ParentDialog als Parameter übergeben.
FileDialogEvents := TFileDialogEvent.Create(Self);
IFileDialog.Advise will ein Interface haben, wieso gibst du ihm dann das Objekt?
Wenn du dir das TOpenOptions-Set bitkompatibel zu den FOS_*-Konstanten ausgelegt hast, dann kannst du dir das ellenlange IF-Konstrukt ersparen, indem du Options direkt in aOptionsSet castest.