Hallo...
Ich benutze SelectDirectory. In meiner Anwendung sieht es Schei... aus. In einer leeren Anwendung, gleicher Code, ist es ok.
An welchem Schräubchen muß ich drehen? Ich weis, daß das mit dem Skinning zu tun hat. Die leere hat keinen
VCL Style, das Original schon. Wie kann ich den Dialog, und die anderen System Dialoge aus dem Skinning herausnehmen.
Danke.
Delphi-Quellcode:
// leere Anwendung
procedure TForm1.FormShow(Sender: TObject);
var
Test2: TArray<string>;
begin
SelectDirectory('E:\tmp', Test2, [], 'Test');
...
Delphi-Quellcode:
// Original
class function TSEAMToolsIO.SelectFolder(Root: string; Parent: TForm; FolderTypeText: string = ''): string;
var
Directories: TArray<string>;
begin
SelectDirectory(Root, Directories, [], FolderTypeText);
...
Nachtrag: Hat sich erledigt.
TStyleManager.SystemHooks := TStyleManager.SystemHooks - [shDialogs];
...fertsch.