Pfad verloren.

[Starzyrific]

Also ich weiss nicht wieviel oder welches Stück genau ihr braucht, aber hier ist alles was in der Unit 3 drin ist. Sound ist jetzt draußen. Problem besteht immernoch.

Delphi-Quellcode:

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Timer1: TTimer;
    Label6: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TForm3.FormCreate(Sender: TObject);
begin
windowstate:=wsmaximized;
form3.enabled:=false;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
Form3.label6.Visible:=true;
Form3.label7.Visible:=true;
Form3.label8.Visible:=true;
end;

procedure TForm3.Timer2Timer(Sender: TObject);
begin
Form3.label9.Visible:=true;
Form3.label10.Visible:=true;
Form3.label11.Visible:=true;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
form3.Close;
form2.Show;
end;

procedure TForm3.Timer3Timer(Sender: TObject);
begin
form3.close;
end;

procedure TForm3.Timer4Timer(Sender: TObject);
begin

Form3.label1.Visible:=false;
Form3.label2.Visible:=false;
Form3.label3.Visible:=false;
Form3.label3.Visible:=false;
Form3.label4.Visible:=false;
Form3.label5.Visible:=false;
Form3.label6.Visible:=false;
Form3.label7.Visible:=false;
Form3.label8.Visible:=false;
Form3.label9.Visible:=false;
Form3.label10.Visible:=false;
Form3.label11.Visible:=false;

Form3.label12.Visible:=true;
Form3.label13.Visible:=true;
Form3.label13.Visible:=true;
Form3.label14.Visible:=true;
Form3.label15.Visible:=true;
Form3.label16.Visible:=true;
Form3.label17.Visible:=true;

end;

end.

[edit=SirThornberry]Delphi-Tags gesetzt. Mfg, SirThornberry[/edit]