Einzelnen Beitrag anzeigen

fajac

Registriert seit: 1. Jul 2009
60 Beiträge
 
#4

Re: ein Tabsheet aus einer DLL erzeugen in ein Pageconrol

  Alt 24. Sep 2009, 13:47
Wenn deine Funktion z.B. "GetNewTab" heißen soll:

In der Dll:

Delphi-Quellcode:
  
exports
  GetNewTab;

function GetNewTab : TTabSheet;
{...}
In der App:

Delphi-Quellcode:
type
  TGetTab = function : TTabSheet;


var
  hLib : Cardinal;
  getTab : TGetTab;

procedure GetNewTabFromDll;
var
  sheet : TTabSheet;
begin
  hLib := LoadLibrary (LibPath);
  if hLib > 0 then
  begin
    getTab := TGetTab (GetProcAddress (hLib, 'GetNewTab'));
    if Assigned (getTab) then
    begin
      sheet := getTab();
      sheet.PageControl := PageControl1;
    end;
  end;
end;
  Mit Zitat antworten Zitat