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

[Luckie]

Warum benutzt du nicht die IDE, um dir deine Form zusammenzuklicken?

[VT-DA]

Hi,

Jop. Habs jetzt so gemacht wie du es meintest und es klappt auch so. :)
Thx nochmal an alle die geholfen haben. ;)

Mfg

[The-X]

Delphi-Quellcode:

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

^^ "Tödlich" ... das Objekt in seinem eigenen Event zu free'n ...
nur als kleine Anmerkung

[Daniel G]

Zitat:

Zitat von Luckie

Warum benutzt du nicht die IDE, um dir deine Form zusammenzuklicken?

Weil er nicht weiß, wieviele Buttons, Edits etc. pp. seine Kunden denn nun haben wollen (er schreibt doch eine eigene IDE. Steht doch im Eingangspost) :zwinker:

[idontwantaname]

Delphi-Quellcode:

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

muss man Memo1 und Button1 überhaupt freigeben ??
beim Create wird doch ein Owner übergeben, da muss man sich doch nicht um das freigeben kümmern oder irre ich mich da ?? :gruebel: