En ekstra tråd i delphi

Åbn din app.
Tryk File | New...
Vælg Thread.
Giv den et passende navn.
Tryk OK.

I Execute-proceduren skriver du så fx
Synchronize(Finger)

du tilføjer en method til thread-classen, der hedder Finger.
Tilføj til den noget kode, der kalder NMFinger-componenten.

I Timer1Timer skriver du noget àla (hvis altså thread-classen hedder TMyThread:
begin
  with TMyThread.Create(true) do
    FreeOnTerminate := True;
end;

håber det var hvad du spurgte om...

prøver om lidt, skal lige boote.

men forstår ikke helt de to linjer her ...

du tilføjer en method til thread-classen, der hedder Finger.
Tilføj til den noget kode, der kalder NMFinger-componenten.

Ok, har gjort det hele nu, den siger i Unit1 at memotid (min thread) ikke er defineret.

Hvad skal jeg skirve som definition ?

Så er den defineret også !
Et problem, jeg kan jo ikke havde uses Unitx i begge, da det danner en circle, hvad gør jeg så ?

stort set hver gang du kommer ud for en circular unit reference kan du med fordel flytte ét af uses-statements\'ne ned under implementation, i stedet for under interface.
Altså, hvis du fx i interface-delen af MemoTidThreadUnitet deklarerer \'Unit1\' i din uses-clause, kan du sikkert flytte denne ned til uses-clausen i implementation-delen. Dette burde ikke resultere i nogen circular unit reference

Virker ikke, har du en email så kan jeg sende kilden ?

Altså har lavet et lille, test først inden jeg ligger det i selve systemet ...

yes, cnt@cnt.dk

Der skal selvfølgelig stå:

  with memotid.Create(true) do
  begin
    FreeOnTerminate := True;
    Resume;
  end;

Virker fint, takker