Erbitte Hilfe bei MarqueeProgressBar !!

[Störtebeker]

meinst du so:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, WinXP, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    WinXP1: TWinXP;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  procedure delay(milliseconds:integer);

implementation

uses Unit2, Unit4;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.show;
Form1.Hide;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Hide;
Form4.show;
end;


procedure delay(milliseconds:integer);
begin
delay(3500);
end;
end.

programm startet zwar aber leider nicht der gewünschte effekt.
Und bei deinem link, da blick ich nicht ganz durch die Codes durch.
Das Problem jetzt ist, dass ich leider keine Möglichkeit habe das zu überprüfen, weil der SplashScreen nur kurz aufleuchtet und dann zum eigentlichen Programm übergeht.