TMain - Goethe Gymnasium Dortmund

procedure TMain.Spielauswertung;
begin
Timer1.Enabled := FALSE;
IF PanelAnzahl = 0 THEN Showmessage('Du hast gewonnen!')
ELSE Showmessage('Du hast verloren !');
Main.Close
end;
procedure TMain.MineGetroffen(Sender: TObject);
begin
Main.Close
end;
procedure TMain.PanelWeg(Sender: TObject);
begin
TFangPanel(Sender).Hide;
PanelAnzahl := PanelAnzahl - 1;
AFenster.SetPunkte(PanelAnzahl);
IF (PanelAnzahl=0) OR (PanelAnzahl =10) THEN Spielauswertung;
NeuPositionieren
end;
procedure TMain.LoeschVerstecktePanels;
VAR i: INTEGER;
K: TComponent;
begin
FOR i := ComponentCount - 1 DOWNTO 0 DO BEGIN
K := Components[i];
IF K is TFangPanel THEN
IF TFangPanel(K).Visible = False THEN K.Destroy
END
end;
procedure TMain.PanelErzeugen;
VAR FP: TFangPanel;
BEGIN
FP := TFangPanel.Create(Main);
FP.Left := Random(Main.Width - 50);
FP.Top := Random(Main.Height - 100);
FP.Parent := Main;
FP.OnClick := PanelWeg;
PanelAnzahl := PanelAnzahl + 1
END;
30