SHBrowseForFolder -> Dialog öffnet sich nicht

[Lord_Stifterl]

Hallo alle zusammen,

hab ein wenig Probleme mit SHBrowseForFolder bzw. der Klasse BrowseForFolderCls welche ich von luckie-online heruntergeladen habe. So sieht der Code aus:

Delphi-Quellcode:

procedure TfMain.SBOpenInstallDir2Click(Sender: TObject);
var fb: TFolderBrowser;
    hwndDlg: HWnd;
begin
        fb := TFolderBrowser.Create(hwndDlg,'Ordner auswählen','C:\',False,True);
        if(fb <> nil) then
        try
          if(fb.Execute) then
                eInstallDir2.Text := fb.SelectedItem;
        finally
          fb.Free;
        end;
end;

Kann mir eventuell jemand erklären warum sich der Dialog nicht öffnet? Der Code sollte IMHO stimmen.

LG

[alcaeus]

Ganz einfach: entferne die variable hwnddlg und übergib mal Application.Handle. Das sollte dann vielleicht schon eher klappen.

Greetz
alcaeus

[Lord_Stifterl]

Hi alcaeus,

danke das wars. Jetzt funzts.

LG

[MathiasSimmack]

"hwndDlg" war die HWND-Variable aus einem nonVCL-Beispiel. In der VCL eben "self.Handle" oder "Application.Handle". Ihr wisst doch, dass ihr Beispielaufrufe an eure eigenen Programme anpassen müsst.

[Lord_Stifterl]

Jaja...alles klar. Mit den ganzen Handles und der gleichen hab ich leider nur ein wenig Probleme. Aber früher oder später werd ichs schon noch behirnen.

LG