Forme i DLL filer - Rødvin udloves for svar

prøv at leg lidt med denne

du skal ikke bruge denne parm WS_EX_APPWINDOW men måske 0

SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_APPWINDOW);

Man kan da heller ikke vende ryggen til jeg 3 minutter uden i laver ulykker !!!!

Godt nok er jeg officielt stoppet men jeg kiggede lige lidt for sjov, og så dit spørgsmål. Nu har jeg løsningen (ental bestemt form). Send mig lige en mail på Jens@Borrisholt.com så retunerer jeg projektet!

Håber rødvinen ER god, for så vil jeg se frem til den. Pointsene kan du give til en der trænger ....

Jens B

hov, hov JB, du ved godt at løsningen skal lægges her !!

martin, jeg har ikke lige adgang til FTP herfra. Men du må da gerne publisere den for mig ..

Jens B

skal vi ikke bare sige at friiiiis gør det !

det skal jeg nok... men skal lige have en mail fra borrisholt med projektet først...

Jeg har sendt det.

Jens B

- og jeg har lige kigget på det... skal lige hjem og sidde og nørkle med det, så giver jeg et prej når jeg har fundet ud af det - skal nok ligge en forklaring her ud siden...

hvis alt virker (som det ser ud til her nu) så bestiller jeg rødvinen så den er der lørdag formmidag iflg. din mail...

I exe filen skrives:

procedure ShowForm(ParentApplication: TApplication; ParentForm: TForm); stdcall; external 'Project1dll.dll' name 'ShowDllForm';
function ShowFormModal(ParentApplication: TApplication; ParentForm: TForm): integer; stdcall; external 'Project1dll.dll' name 'ShowDllFormModal';

dll-filen hentes ved showmodal via: ShowFormModal(Application, SELF);

dll-filen hentes ved show via: ShowForm(Application, SELF);

bemærk at funktionen/procedure IKKE hedder det samme i DLL filen og exe filen. F.eks. hedder funktionen i exe filen ShowFormModal mens den i dll-filen hedder
ShowDllFormModal... lidt specielt...

=====================================================================

I DLL-filen skrives:

først - lav en VAR declaration:

var
  DllApplication : TApplication;

lav procedure/funktion:

procedure ShowDllForm(ParentApplication: TApplication; ParentForm: TForm); stdcall;
begin
  Application := ParentApplication;
  frmDllForm := TfrmDllForm.Create(ParentForm);
  frmDllForm.Show;
end;


function ShowDllFormModal(ParentApplication: TApplication; ParentForm: TForm): integer; stdcall;
begin
  Application := ParentApplication;  // Jeg har været nødt til at medtage denne linie
                                    // for at få det til at virke - det har
                                    // borrisholt ikke
  frmDllForm := TfrmDllForm.Create(ParentForm);
  Result := frmDllForm.ShowModal;
end;

hvor "frmDllForm" er navnet på formen i DLL-filen


tilføj desuden funktionen:

procedure DLLUnloadProc(Reason: Integer); register;
begin
  if Reason = DLL_PROCESS_DETACH then
    Application := DllApplication;
end;

... og tilføj i det nederst begin end. afsnit i dll filen

begin
  DllApplication := Application;
  DLLProc := @DLLUnloadProc;
end.

sig endeligt til hvis I har nogle kommentarer... Jeg har sikkert glemt noget, men så må borrisholt lige tilføje de guddommelige detaljer...

-->> Borrisholt, rødvinen er på vej...!!

friiiiis>> Den er korrekt der mangler en linje i det eksemel jeg sendte. Det opdagede jeg bagefter .. Men du fandt det selv.

Men summa sumarium så overfører man blot applikations objektet til DLL filen, og husker at ligge dettilbag. Så er den i vinkel.

Navne forviring ? Tja tjo lidt måske ... Men det gik stærkt !

Jens B

Hvis Borrisholt ikke vil have point'ene, så er det vidst mest rimeligt at martinlind får point'ene, hvis altså ikke Borrisholt har vildt og voldsomt mange indvendinger...

- kan jeg ikke lige få et svar fra dig martinlind?

... endnu en lille berigtigelse...

Hvis exe-filen henviser til en dll-fil med en form og denne dll-fil henviser igen til en ny dll-fil med en ny form, så skal ParentApplication og ParentForm være fra den forhenværende forms dll-fil og ikke ParentApplication og ParentForm fra exe-filen...

måske giver det sig selv, men det tog mig lige et par minutter (lavt sat..) at regne det ud...

OKI DET viste jeg ikke. Det ander er blot noget jeg har lavet fordi jeg havde brug for at ligge et MDI Child i en DLL fil. Og så så jeg tilfældigvis dit spm, og så vidste jeg at jeg kendte svaret.

Jens B

friiiiis>> Tusinde tak for rødvinen !!!! Det er altid rart at kunne hjælpe. Må man spørge hvad du skal bruge det . Jeg er bare rasende nysgerrig, fordi det er sjælden man bliver tilbudt noget af vikrelig værdi for at besvare et spm. (Rødvin, kontanter etc)

Jens B

lukker spm nu, når martinlind ikke vil have point'ene...