hi
ein Freund von mir versucht gerade ein Hangman Programm zu machen und es soll am Anfang ein Logo zeigen, nach einer gewissen Zeit soll er dann das Hauptprogramm starten, nur es zeigt dan eine Zugriffsverletzung an. Mein Freund, mein Lehrer und ich stehen auf der Leitung.
Delphi-Quellcode:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg;
type
TFStart =
class(TForm)
IBild: TImage;
TZeit: TTimer;
procedure TZeitTimer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
time: Integer;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
FStart: TFStart;
implementation
uses Hangman_u;
{$R *.dfm}
procedure TFStart.FormCreate(Sender: TObject);
begin
time:= 1;
TZeit.enabled:= true;
end;
procedure TFStart.TZeitTimer(Sender: TObject);
begin
dec(time);
if time= 0
then
begin
TZeit.Enabled:= false;
FStart.Hide;
FHangman.Show;
end;
end;
FStart ist die Logo
Unit
FHangman das Hauptprogramm