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...

Für Hilfe bin ich wie immer dankbar

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

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

Eleganter wäre es z.B. so:

zusammenfalten · markieren

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

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

Aber danke für die Antwort .

Edit: Habs hinbekommen

Zitat von LoW_FloW:

Edit: Habs hinbekommen

Und wie? Andere interessiert es vielleicht auch.

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 .

Auch einen großen Dank an dich .