Probleme mit create Thread

[sebastian_buege]

Hallo ich möchte ganz einfach einen Thread Programmieren.
hier mein Code

Code:

var
  ThreadID: DWORD;       //Thread-ID
  ThreadHandle: THandle; //Rückgabewert von CreateThread
begin
ThreadHandle:=BeginThread(nil,0,TFNThreadStartRoutine(@Leuchten),nil,0,ThreadID);
...

ich bekomme jedes mal die Meldung "variable erforderlich. und zwar an der stelle @Leuchte

hier die funktionsdefinition : Machta aber noch nichts

Code:

procedure Leuchten;

hat jemand ne idee

[Luckie]

Schon mal in der Hilfe unter BeginThread geguckt?

Desweiteren ist eine ThradFunktion so deklariert:

Delphi-Quellcode:

function MyThreadFunc(p: Pointer): Integer;

[sebastian_buege]

Erst mal danke für deine Hilfe also ich habe die Funktion nun abgeändert si sieht jetzt so aus:

Code:

function Leuchten(p: Pointer) :integer;

Leider kommt die selbe Fehlermeldung

[Luckie]

Du hast dir die Hilfe nicht angeguckt:

Delphi-Quellcode:

var 
  ThreadID: DWORD;       //Thread-ID 
  ThreadHandle: THandle; //Rückgabewert von CreateThread 
begin 
ThreadHandle:=BeginThread(nil,0,@Leuchten,nil,0,ThreadID);

http://www.michael-puff.de/dirindex....phi/Tutorials/

[sebastian_buege]

Also ich habe es genau so wie du und es bleibt bei der fehlermeldung

[Olli]

Welche Delphiversion benutzt du? Ich denke es kann höchstens ein Problem mit Typecasts oder so sein, wenn es bei Luckie funzt.

[Angel4585]

Warum nicht von TThread ableiten?