Hi!
PostMessage(Form1.Handle, PM_App, 0, MyThread[n].MyID);
Ich glaube das ist nicht gut. Übergebe den Wert von Form1.Handle lieber deinem Flashing() als Argument mit.
Quasi irgendwie so:
Delphi-Quellcode:
for i:=0
to 2
do
begin
MyThread[i].MyID := i;
MyThread[i].WindowHandle :=
Handle;
// rubbel die katz
MyThread[i].OutPut := oLabel[i];
MyThread[i].ThreadHandle := CreateThread(
nil, 0, TFNThreadStartRoutine(@Flashing),@MyThread, 0, MyThread[i].ThreadID);
if MyThread[i].ThreadHandle <> 0
then
CloseHandle(MyThread[i].ThreadHandle);
end;
und passe die Flashing-Funktion dementsprechend an.