Schwere Exception bei "PromptForFileName"mit TXPManifest...

[md_mse]

Und wieder eine komische Exception im Zusammenhang mit meiner "Lieblings" IDE (wenn es auch weniger an der IDE liegt)...

Man importiere "FileCtrl" und setze ein TXPManifest auf die Form.
Dann z.B. in ein ButtonClick Ereignis bitte folgendes schreiben:

Delphi-Quellcode:

var
  FileName: string;
begin
  PromptForFileName(FileName, '', '', 'Datei wählen...', '', False);
  PromptForFileName(FileName, '', '', 'Datei wählen...', '', False);

Beim Ersten Dialog einfach auf Abbrechen klicken...
Dann beim zweiten Erscheinen mit der Maus auf eine Datei gehen und abwarten bis der ToolTip kommt...
Nun wird eine Exception ausgelößt...

Warum ist das so bzw. kann das jemand reprodizieren?

P.S.: Ich benutze Delphi 2005...

[Sharky]

Hai md_mse,

ich kann den Fehler nicht nachvollziehen.

[md_mse]

Hm, komisch...

Er kommt beim Auftauchen des Hints des zweiten Dialogs...

Hier vielleicht noch etwas über mein System und Delphi:
Windows XP SP2 (Themes aktiviert)
Delphi 2005 Update 2

Wenn ich das XP Manifest entferne, kommt der Fehler nicht

Edit: Der Fehler kommt übrigens auch wenn ich den TOpenDialog direkt benutze (zwei mal .Execute)

[MagicAndre1981]

Probier es mal ohne die Komponente und benutze nur die Unit XPman. Vielleicht hilft das?

André

[md_mse]

Nein, leider alles beim Alten

[md_mse]

... aber wie ich grad merke, kommt das nur, wenn ich beim zweiten Dialog nicht scrolle und auch nicht über ein Verzeichnis gehe, also gleich auf eine Datei (in meinem Fall ein RAR Archiv)...

Edit: auch eine Datei mit einer für Windows unbekannten Endung tut's
Edit2: Mit Delphi 7 das gleiche...