Hallo
Ich versuchs mal.
Also mal ein Beispiel für Bmp.
Als erstes packst Du drei Bmp in deinen Projektordner mit dem Namen
Bild1.bmp, Bild2.bmp, Bild3.bmp
Als zweites nimmst Du einen Texteditor und schreibst folgendes dort rein
MyBild1 BITMAP "Bild1.bmp"
MyBild2 BITMAP "Bild2.bmp"
MyBild3 BITMAP "Bild3.bmp"
und speicherst die Datei als MyResource.rc
Als drittes suchst du in Delphi die Brcc32.exe, liegt wahrscheinlich im Bin Verzeichnis von Borland
kopierst Sie und fügst Sie in deinen Projektordner ein.
Dann nimmst Du deine MyResource.rc und schiebts sie per Drag & Drop auf die Brcc32.exe
Diese erzeugt Dir dann eine Res Datei mit dem Namen MyResource.res
Dann erstellst Du dein Projekt - Ein Button, Ein Image und gibst unteren Delphi Code ein.
Alles abspeichern und und Starten.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 =
class(TForm)
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
Zaehler:Integer;
implementation
{$R *.dfm}
{$R MyResource.res} //Hier die res Datei angeben
procedure TForm1.Button1Click(Sender: TObject);
begin
Inc(Zaehler);
//Zähler erhöhen
if Zaehler > 3
then Zaehler:=1;
//Wenn letztes Bild erreicht Zähler zurücksetzen
Image1.Picture.Bitmap.LoadFromResourceName(HInstance,'
MyBild'+IntToStr(Zaehler));
//Bild laden je nach Zähler
end;
end.
Ich Hoffe konnte weiter helfen.