Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TiGü,
4. Mai 2021
Hä? :roll:
Er will aus Komfortgründen nur eine neue Property, da soll keine Logik im OnTypeChange eingebaut werden.
Alternativ soll der Setter von InitialDir nicht nur einen Wert setzen, sondern wirklich das sichtbare Verzeichnis im Dialog ändern.
Lesen und Verstehen...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TiGü,
4. Mai 2021
Sehr umfangreich und blumig beschrieben, aber nutze doch die Idee von Uwe und packe meinen letzten Code per class helper in einen Setter für den Defaultordner.
Ist ja kein Hexenwerk.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by TiGü,
4. Mai 2021
Ansonsten mach dir das Leben einfach und mach das was Uwe sagt.
Dann würde sich das so vereinfachen und aussehen mit einem TFileOpenDialog:
procedure TForm3.FileOpenDialog1TypeChange(Sender: TObject);
var
ShellItem: IShellItem;
HR: HRESULT;
NewDefaultFolder: string;
begin
if Sender is TFileOpenDialog then