Tja.... har det på fornemlsen at det er muligt på en eller anden måde.........
I kan lige få den kode jeg har intil vidre:
Min exe form, som er sat som MidiForm:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls;
procedure Test(); External 'DLLtest.dll';
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
FilesMenu: TMenuItem;
Extra: TMenuItem;
OptionsMenu: TMenuItem;
PluginMenu: TMenuItem;
HelpMenu: TMenuItem;
N1: TMenuItem;
ExitMenu: TMenuItem;
GuiOptionsMenu: TMenuItem;
PluginOptionMenu: TMenuItem;
LoadedPluginMenu: TMenuItem;
PluginOptionsMenu: TMenuItem;
AboutMenu: TMenuItem;
HomepageMenu: TMenuItem;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Test();
end;
end.
Min Dll:
library DLLtest;
uses
SysUtils, Dialogs,
Classes,
dllForm in 'dllForm.pas' {dllForm1},
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
procedure Test(); stdcall;
begin
if dllForm1 = nil then
dllForm1 := TdllForm1.Create(nil);
dllForm1.Show;
end;
exports
Test;
end.
Og så er min Dll form sat som MidiChild (Har ikke nogen spændene kode i den).
------------------------------------------------------
Intet er umuligt før man har prøvet, og vis ikke det virker første gang så plejer det at virke anden gang.
http://www.frip.dk/worldoffireDarkfighter