Paint-Messages abfangen

[teebee]

Habe gerade festgestellt, dass mein Beispiel ab einschl. Delphi 6 nicht problemlos funktioniert. Ab da wird nämlich eine OPENFILENAME-Strukur verwendet, die zusätzliche Felder beinhaltet (für Windows 2000 aufwärts), u. a. ein Flag zum Ein- und Ausschalten der Places-Bar. Setzt man jetzt die Strukturgröße mitofn.lStructSize := sizeof(ofn); erkennt Windows, dass man die neue Struktur verwendet und wertet dieses Flag aus, allerdings muss man dann auch unbedingtofn.nMaxFile := MAX_PATH; // Länge des Filename-Buffers setzen, damit der Dialog überhaupt erzeugt wird.

Setzt man die Strukturgröße aufofn.lStructSize := OPENFILENAME_SIZE_VERSION_400; // die Konstante hat den Wert 76 ist Windows nicht so empfindlich und der Dialog wird auch bei nMaxFile := 0 erzeugt, aber es gibt eben auch keine Places-Bar.

Gruß, teebee