Hallo zusammen,
und besten dank schon mal für die Info´s. Ich habe mein Problem jetzt mit einer Resourcendatei und einer Graphics32 Komponentensammlung über die Komponente Image32 gelößt. Auf diese Komponente bin durch die Suchmaschine gekommen, da ich die Bilder gerne überblenden würde.
Ich habe mir verschiedene Beiträge angesehen, jedoch keinen der mir so richtig helfen konnte.
Ich zeig Euch hier mal meine aktuelle Lösung und hoffe, das ihr mir nochmal weiterhelfen könt.
Delphi-Quellcode:
procedure TPSStarter.FormCreate(Sender: TObject);
var
Live : TBitmap32;
begin
PicTimer.Interval := Starter.Interval div 11;
Live := TBitmap32.Create;
Live.LoadFromResourceName(HInstance, 'Erfolg');
Image321.Bitmap := Live;
Live.Free;
end;
procedure TPSStarter.PicTimerTimer(Sender: TObject);
var
Live : TBitmap32;
i : integer;
begin
try
try
Live := TBitmap32.Create;
case Image321.Tag of
0: Live.LoadFromResourceName(HInstance, 'Einbruch');
1: Live.LoadFromResourceName(HInstance, 'Brand');
2: Live.LoadFromResourceName(HInstance, 'TK');
3: Live.LoadFromResourceName(HInstance, 'IT');
4: Live.LoadFromResourceName(HInstance, 'Kosten');
5: Live.LoadFromResourceName(HInstance, 'Lichtruf');
6: Live.LoadFromResourceName(HInstance, 'Video');
7: Live.LoadFromResourceName(HInstance, 'Zeit');
8: Live.LoadFromResourceName(HInstance, 'Zutritt');
9: Live.LoadFromResourceName(HInstance, 'Planung');
10: Live.LoadFromResourceName(HInstance,'Erfolg');
end;
Image321.Bitmap := Live;
except
Exit;
end;
finally
Live.Free;
Image321.Tag := Image321.Tag + 1;
end;
end;
Danke schon mal
Gruß Jens