Handle Problem

[braingrenade]

Moin Leute !

Ich hab eine prozedur in einer
unit :

Delphi-Quellcode:

type myclass = class
 targethandle : HWND;
 procedure init(windowhandle : HWND);
  ...
end;

...

procedure myclass.init(windowhandle : HWND);
begin
targethandle := windowhandle; // in dieser zeile  kommt der fehler
...
end;

nun möchte ich diese prozedue in einer form so ausführen :

Delphi-Quellcode:

var x : myclass;

procedure y;
begin
x.init(application.handle);
end;

aber es kommt währen der laufzeit immer zu folgendem Fehler :

'access violation at address 0046280E in modul ...'

Weiß jemand wie das beheben kann ?

[Christian Seehase]

Moin Braingrenade,

bist Du sicher, dass der Fehler nicht in dieser Zeile kommt

Delphi-Quellcode:

x.init(application.handle);

Vielleicht hast Du's ja auch nur nicht mit hingeschrieben, aber ich seh' nämlich nirgends, dass das Objekt auch erzeugt wurde.

[braingrenade]

aso!

Du meinst ich soll Tobject vererben und dann create aufrufen?

ich dachter immer das geht auch ohne!

[Christian Seehase]

Moin Braingrenade,

wenn Du etwas von class ableitest so wird das intern als class(TObject) gesehen.

In keinem Falle aber kommst Du um den Aufruf eines Konstruktors herum, wenn Du eine Instanz von Deiner Klasse bilden willst.

Dazu musst Du nicht zwingend selber einen erstellen, wenn Du nichts hast was dort initialisiert werden soll.

Wenn Du also erst den Konstruktor der Klasse aufrufst

Delphi-Quellcode:

var x : myclass;

procedure y;
begin
  x := myclass.create; // Instanz von MyClass erzeugen
  x.init(application.handle);
end;

sollte es gehen.

Dazu musst Du in Deiner Klasse nichts ändern.

[braingrenade]

Alles funzt jetzt !!

DAnke!