05. januar 2002 - 22:57
#1
din projekt fil til DLL\'en (.dpr) skal se sådan ud:
library LibraryProject;
uses
SysUtils,
Classes,
Windows,
Forms,
LibraryUnit in \'LibraryUnit.pas\' {Form1};
{$R *.RES}
procedure CreateForm;
begin
with TForm1.Create(nil) do
try
Show;
ShowWindow(Application.Handle, SW_HIDE);
finally
end;
end;
exports
Form1,
CreateForm index 1;
begin
Application.Initialize;
end.
så skal du lave en Form i dll projektet og kalde den Form1.
i din projekt mainform (.pas) altså den som skal køre det andet vindue fra dll\'en skal se sådan her ud:
unit ProgramUnit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TMainForm = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.DFM}
procedure CreateForm; external \'LibraryProject.dll\' index 1;
procedure TMainForm.Button1Click(Sender: TObject);
begin
CreateForm;
end;
end.
sig til hvis der er noget du ikke forstår
05. januar 2002 - 22:59
#2
eller form1 er den form med den CheckBox, bare husk at udskifte
with TForm1.Create(nil) do
med T + det din form hedder!
Det T er røv vigtigt!!!!
Og husk også
exports
Form1,
CreateForm index 1;
skift blot Form1 ud med din forms navn.