Bitte Warten - Box

[MathiasSimmack]

Selber machen!

Form auf die Größe bringen, Text reinschreiben und das ganze nicht modal aufrufen:

Code:

Form2.Show

Als zweites Beispiel gibt´s den "Trick" aus den Delphi-Groups, mit dem du beim Laden deiner Forms einen Splash-Screen anzeigen kannst:

Delphi-Quellcode:

Application.Initialize;
with TWaitForm.Create(nil) do
try
  ActionLabel.Caption := 'initialisiere';
  pb1.Position := 0;
  Show;
  Update;

  Application.CreateForm(TForm1, Form1);
  pb1.Position := MulDiv( 1,100,10);

  { ... }

finally
  Free;
end;

Application.Run;

Steckt im DPR-Quelltext. Kannst du damit was anfangen?