Problem mit Thread [erledigt]

[LoW_FloW]

Ich will bei meinem Programm ein paar Bilder beim start vorladen und den Ladestatus in einer ProgressBar anzeigen.
Nur weiß ich nicht so genau, wo ich den Source reinschreiben soll (OnCreate, OnShow, OnPaint, OnActivate, OnResize...hab alles schon ausprobiert...). Das Programm läd die Bilder zwar vor, aber zeigt das Formblatt nicht an... :wall:

Für Hilfe bin ich wie immer dankbar :zwinker:

[LoW_FloW]

Hab es jetzt mithilfe von "OnActive" gelöst und es geht halbwegs :mrgreen:.

Sry an alle, die sich diesen sinnlosen Post durchgelesen haben... :wall:

[SleepyMaster]

Eleganter wäre es z.B. so:

Delphi-Quellcode:

function Thread(p:pointer):DWORD;
begin
//BilderLaden
TForm1(p).ProgressBar1.Position:=XX;
//BilderLaden
TForm1(p).ProgressBar1.Position:=XX;
//BilderLaden
TForm1(p).ProgressBar1.Position:=XX;
end;

procedure TForm1Create(Sender:TObject);
var
  ThreadID: cardinal;
  hThread: THandle;
begin
hThread:=BeginThread(0, nil, @Thread, pointer(self), 0, ThreadID);
if hThread <> INVALID_HANDLE_VALUE then
  CloseHandle(hThread);
end;

Habs per Hand hierein geschrieben (Kein Delphi installiert momentan) also auchtung wegen Fehlern

[LoW_FloW]

Es kommt eine Warnung, dass die Konstante 0 zu NIL konvertiert wurde und ein Fehler, wegen inkompatibler Typen 'Cardinal' und 'Pointer'. :gruebel:

Aber danke für die Antwort :thumb:.

Edit: Habs hinbekommen :coder:

[Luckie]

Zitat:

Zitat von LoW_FloW

Edit: Habs hinbekommen :coder:

Und wie? Andere interessiert es vielleicht auch.

[LoW_FloW]

Hab mich umgeschaut und dein ?Tutorial? gefunden [http://www.luckie-online.de/Tutorial...it_Delphi.pdf].

Das war so gut erklärt, dass man einfach nix falsch machen kann :zwinker:.

Auch einen großen Dank an dich :thumb:.