Bildquelle auf Tastendruck verändern?

GR-Thunderstorm · Beiträge: 206

Hi Leutz!
Hab vor kurzem erst mit Delphi angefangen und hab jetzt mal ne ziemlich dumme Frage...
Ich will erreichen, dass wenn ich eine bestimmte Taste drücke, sich mein Bild durch ein anderes auswechselt.
Ich hab alle Bilder in eine ImageList geladen und will nun je nach Taste, dass mein Bild zu einem der Bilder in der Liste wird.
Hab folgendes schon probiert:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
if key:="d" then
begin
image1.picture:=imagelist.2; {will dass das image1 zum 2. Bild aus der ImageList wird}
end;
end.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
if key:="d" then
begin
image1.picture:=C:\(...)\Bild2.bmp;
end;
end.

Beides funktioniert leider nicht...

Kann mir einer sagen wo der Fehler liegt?
DANKE!

Moderiert von Gausi: I- durch Delphi-Tags ersetzt

Marc. · Verfasst: Fr 05.05.06 14:58

hallo,
ich würde dir raten, die grundlagen von delphi nocheinmal durchzugehen.

verglichen wird in delphi nämlich mit dem '=' operator!

daher sollte dein code nun so aussehen: if key = 'd' then ...

mfg

GR-Thunderstorm · Beiträge: 206

Ja sry hab mich da jetzt verschrieben, ich meinte ja eigentlich if key = 'd' then.... :roll:

Wenn ich das mit der Imagelist mache sagt er Identifier expected but number found und er springt an diese Stelle:

Zitat:

image.picture:=imagelist1.2|;

Wenn ich es mit der direkten Pfadangabe versuche sagt er mir Undeclared Identifier: 'C'.
Wenn ich den ganzen Pfad in Hochkommata setze sagt er: Incompatible types: 'TPicture' and 'String'

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key ='d' then
  ImageList1.GetBitmap(0, Image1.Picture.Bitmap);
  if key ='f' then
  Image1.Picture.LoadFromFile('C:\Bild.bmp');
end;

Xion · Verfasst: Fr 05.05.06 15:27

du musst das bild entweder so

ImageList1.GetBitmap(2,Image1.Picture.Bitmap);

oder so laden

Image1.Picture.LoadfromFile('C:\...Bild2.bmp');

Xion

_________________
a broken heart is like a broken window - it'll never heal
In einem gut regierten Land ist Armut eine Schande, in einem schlecht regierten Reichtum. (Konfuzius)

GR-Thunderstorm · Beiträge: 206

Klappt! DANKE!

Eine Sache die mir jetzt auffällt:
Wieso is das Bild welches aus der ImageMap kommt so klein? Und wieso meckert er wenn ich größere Bilder reinmachen will?

MysticMike · Beiträge: 21

Hi!

Die Größe stellt du im Objektinspektor unter width und height (von der Imagelist) ein

greetz Mystix

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme