non-vcl Thread innerhalb einer Klasse deklarieren

[sirius]

Das funktioiert doch aber nur, wenn ich den durch getmem angeforderten Speicherbereich auch ausführen darf Luckie. Und wann gibts du den Speicher wieder frei?

Edit:
Ich dachte doch eher an sowas (habs jetzt nicht getestet):

Delphi-Quellcode:

function threaddispatcher(Method:ppointer):integer;stdcall;
var ThreadProc:function:integer of object;
begin
  ThreadProc:=Method^;
  freemem(Method,8);
  result:=ThreadProc;  
end;

//...
var p:pointer;

getmem(p,8);
move(@TMyDialog.dummyThread,p^,8);
Beginthread(...,@threaddispatcher,...,p,...);

Naja, irgendwie so halt.