DLL Datei, Button.Onclick Fehler

[Flocke]

Hat jetzt keine Delphi-Tags, weil ich die Änderungen farblich hervorgehoben habe.

Code:

[color=red]type
  TMyForm = class(TForm)
  public
    procedure klick (sender: TObject);
  end;[/color]

var Fenster :T[color=red]My[/color]Form;

function addiere(zahl1, zahl2: integer): integer; stdcall;
begin
  result:=zahl1+zahl2;
end;

procedure [color=red]TMyForm.[/color]klick (sender: TObject);
begin
   Showmessage ('');
end;

procedure erstellen;
var
    btn :TButton;
    feld : TEdit;
begin
   Fenster := T[color=red]My[/color]Form.Create(Application);
   Fenster.Width := 1000;
   Fenster.Height := 1000;
   Fenster.left := 0;
   Fenster.top := 0;
   Fenster.caption := 'test';
   //Fenster.show;
   Fenster.visible := true;
   btn := TButton.Create (Fenster);
   btn.Parent := Fenster;
   Btn.Height := 125;
   Btn.Width := 125;
   Btn.left := 0;
   btn.top := 0;
   btn.visible := true;
   btn.caption := 'test';
   btn.show;
   btn.OnClick := [color=red]Fenster.[/color]klick;
   Feld := TEdit.Create (Fenster);

end;

Statt zu TMyForm könntest du auch eine beliebige andere Klasse definieren, zu der "Klick" als Methode gehört. Es müsste sogar auch als Klassenmethode gehen, d.h. du bräuchtest eigentlich noch nicht einmal ein Objekt dafür.