Memory Programm

[bcvs]

Zitat von KillerMary:

procedure TFormAL.Image15Click(Sender: TObject);
begin
image15.visible:= false;
end;

Zitat von KillerMary:

So und dann öffnet sich ein Formular Mit den Karten. 8 Paare und über jeden Ist das "Deckblatt".
Und wenn man das anklickt ist das weg. So aber es muss ja wieder erscheinen wenn das Pärchen nicht passt.
Und das bekommen wir mit unserem Delphi wissen was wir in der schule erlernt haben nicht wirklich hin. ..

Wenn ich das richtig verstehe, habt ihr für jeden Kartenzustand (verdeckt, aufgedeckt) ein eigenes TImage, was dann immer auf visible:=false gesetzt wird, wenn es nicht gebraucht wird.

Ich würde nur ein TImage pro Karte nehmen und da immer das benötigte Bild reinladen. Die Nummer des Bildes könnte man in der Eigenschaft Tag des TImage speichern. Diese Nummer wäre dann gleichzeitig der Dateiname des Bildes.

aufdecken:
Image.Picture.LoadFromFile(IntToStr(Image.Tag)+'.bmp');
verdecken:
Image.Picture.LoadFromFile('deckblatt.bmp');

Erst, wenn ein Pärchen gefunden wurde, werden die beiden Images auf visible:=false gesetzt.

[himitsu]

Zitat von bcvs:

aufdecken:
Image.Picture.LoadFromFile(IntToStr(Image.Tag)+'.bmp'); verdecken:
Image.Picture.LoadFromFile('deckblatt.bmp');

Für die relativen Pfade wirst du schonmal gesteinigt.

Nur absolute Pfade oder alternativ LoadFromResource.

[bcvs]

Zitat von himitsu:

Für die relativen Pfade wirst du schonmal gesteinigt.

Nur absolute Pfade oder alternativ LoadFromResource.

Ja, ist ja schon gut. Es ging mir ja erstmal um einen Denkanstoß in Richtung Bilder nachladen anstatt Images ausblenden.

[DeddyH]

Andere Möglichkeit: ein Array oder eine Liste von Grafiken deklarieren und dort die Bilder einmalig beim Programmstart hineinladen. Wechsel der Anzeigegrafik kann dann durch einfache Zuweisung erfolgen, ohne dass erneut von der Festplatte geladen werden muss.

[mkinzler]

Z.B. mit Hilfe einer Imageliste

[DeddyH]

Japp, oder TObjectList oder Array of TGraphic oder oder...