GUI per DLL

[VT-DA]

Hi,

Argh. Sagt immer noch an der gleichen Stelle den Fehler.
Hier jetzt nocheinmal der komplette code aus der DLL.
auf ein neues.

Delphi-Quellcode:

library form;

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls;

var
  Form1: TForm;
  Button1: TButton;
  Memo1: TMemo;

procedure DLLFormShow(app: TApplication); stdcall;
begin
  Form1 := TForm.Create(app);
  Form1.Top := 0;
  Form1.left := 0;
  Form1.Width := 100;
  Form1.Height := 200;
  Memo1 := TMemo.Create(Form1);
  Memo1.Top := 100;
  Memo1.left := 0;
  Memo1.Width := 100;
  Memo1.Height := 100;
  Memo1.Parent := Form1;
  Button1 := TButton.Create(Form1);
  Button1.Top := 0;
  Button1.left := 0;
  Button1.Width := 100;
  Button1.Height := 100;
  Button1.Caption := 'FreeMe';
  Button1.OnClick := Button1Click;  //Hier, weiss aber nicht ob des genau so heisst
  Button1.Parent := Form1;
  Form1.Show;
end;

procedure Button1Click(Sender: TObject); stdcall;
begin
  Memo1.Free;
  Button1.Free;
  Form1.Free;
end;



exports
  DLLFormShow;
  Button1Click;
{$R *.res}


begin
end.

Mfg