Hallo jaenicke,
Vielen Dank. Für das Sperren des Verzeichnisses ist das die Lösung.
Bleibt noch das Problem mit dem Umschalten der Sprache zur Laufzeit. Nach ergiebigem Googeln sieht es für mich so aus, dass da gar kein direkter Weg vorgesehen ist. Diese Notlösung habe ich gefunden, wo alle Komponenten der Reihe nach angeschaut und gezielt verändert werden:
Sprache umstellen (zB auf Englisch)
So etwas habe ich jetzt auch probiert. Mit einem meiner eigenen Programme funktioniert das auch:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8:
| MyForm: TForm
...
with MyForm do for I:= 0 to ComponentCount - 1 do if Components[I] is TBitBtn then (Components[I] as TBitBtn).Caption:= 'Test'; |
Probiere ich dasselbe aber mit dem Dialog:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7:
| MyDialog: TFileOpenDialog
...
with MyDialog do for I:= 0 to ComponentCount - 1 do ... |
scheitert die Sache schon daran, dass "ComponentCount = 0" geliefert wird. Was ist hier anders?
Gruß Uwe
Moderiert von Th69: URL-Titel hinzugefügt