Hallo
mein programm friet ein bevor das bild aufgedeckt wird
hab eine pause von 1 sek drin
warum?
ich mache die pause damit man das zweite bild sieht (in meinem fall ehr sehen sollte)
Delphi-Quellcode:
procedure TMemoryfeld.aufdeckenOnClick(Sender:TObject);
var
BildNummer : integer;
begin
//Array (TImage) Bild = Bilder auf der Fläche (insgesamt 24)
//Array (Integer) Bilder = Name des sich darunterbefindenden Bildes (bild 1.JPG - 12. JPG)
//Bildernummer des angeklickten Bildes
BildNummer := (Sender as TImage).Tag;
//angeklicktes Bild aufdecken
Bild[BildNummer].Picture.LoadFromFile(inttostr(bilder[BildNummer])+'.JPG');
bild[bildnummer].Enabled := false;
//Anzahl umgedrehte Bilder
turns := turns + 1;
//turns_anz.caption := inttostr(turns); {ausgabe zum test}
//Erstes Bild
if turns = 1 then
begin
pic1_turned := BildNummer;
//pic1.Caption := inttostr( Bildnummer ); {ausgabe zum test}
end;
//Zweites bild
if turns = 2 then
begin
pic2_turned := BildNummer;
//pic2.Caption := inttostr( Bildnummer ); {ausgabe zum test}
sleep(1000); <<--- hier
// bilder sind die gleichen
if bilder[pic1_turned] = bilder[pic2_turned] then
begin
bild[pic1_turned].Visible := false;
bild[pic2_turned].Visible := false;
turns := 0;
end;
//bilder sind unterschiedlich
if bilder[pic1_turned] <> bilder[pic2_turned] then
begin
bild[pic1_turned].Picture.LoadFromFile('back.JPG');
bild[pic1_turned].Enabled := true;
bild[pic2_turned].Picture.LoadFromFile('back.JPG');
bild[pic2_turned].Enabled := true;
turns := 0;
end;
end;
end;