PropertySheet in Anwendung

[flowj]

Hallo,

ich habe ein PropertySheet als dll welche ich eigentlich zur Verwendung als Display Specifier im Active Directory verwende! Nun möchte ich dieses Sheet in eine Anwendung reinbekommen als Formular in ein TabSheet.
Ist das irgendwie möglich und wie?

Gruss

[mkinzler]

Sheet als Parent eintragen

[flowj]

muss ich da in der PropertySheet-dll was verändern?
könntest du es vielleicht ein bisschen genauer erklären?
das wäre echt super!

[mkinzler]

Ist die Dll in Delphi geschrieben?
Füge im Interface der Dll doch die Möglichkeit der Parented-Erzeugung ein.

[flowj]

ja die dll ist in delphi geschrieben!
aber ich will an der dll nix ändern und das ganze als COM Object in meiner Anwendung verwenden?
Also das PropertySheet ist registriert und ich will nicht die dll verwenden sondern über COM Interface gehen!
Ist das möglich?

[mkinzler]

Wenn die Dll einen ActiveX-Server und ein ActiveX-Objekt implemnetiert, kannst du diese ja wieder in Delphi importieren und verwenden. Einfacher wäre aber der Weg mit der Erweiterung des Interfaces.

[flowj]

und was mach ich dann wenn ich das importiert habe?

[mkinzler]

Die Komponente auf das Sheet ziehen

[flowj]

ich wäre jetz so vorgegangen:

in meiner anwendung habe ich so ein interface:

Delphi-Quellcode:

type
  IPSheetTest = interface(IUnknown)
    ['{E6292C5D-5FBB-4BF8-911F-CC61132982DD}']
    function QueryInterface(const IID: TGUID; out Obj): Integer; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
    function propdlgproc(hDlg: HWND; uMsg: UINT; wp: WPARAM; lp: LPARAM): boolean; stdcall;
  end;

Die Funktion "propdlgproc" möchte ich aus dem COM Objekt aufrufen! Sieht so aus:

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
var
  LSheet: IPSheetTest;
  tmpPropSheet : PROPSHEETPAGE;
  LDAPUrl: String;
begin
  LDAPUrl := 'ldap://blablabla';
  tmpPropSheet.lParam := Integer(LDAPUrl);
  tmpPropSheet.hInstance := TabSheet1.Handle;
  LSheet := IPSheetTest(CreateComObject(IPSheetTest));
  LSheet.propdlgproc(self.Handle,WM_INITDIALOG, 0, Integer(@tmpPropSheet))
end;

Nur hauts ihn leider bei "LSheet.propdlgproc" auf die Schnauze. Weiß jemand woran das liegen könnte? Geht das überhaupt mit der Funktion propdlgproc einfach hinzufügen?

[Remko]

There's a sample in the PSDK (PropSheetHost) that might help. I started a conversion of the sample to Delphi (http://www.delphipraxis.net/internal...=propsheethost) but due to lack of time it's not finished (yet).

Are you trying to show a standard Active Directory property page or your own added property page?