Prüfen welches bild gerade in TImage angezeigt wird.

[Deltachaos]

Wie prüfe ich ob gerade z.b. a.jpg oder b.jpg in TImage angezeigt wird?

[DeddyH]

IMHO musst du Dir das beim Zuweisen selber merken, ich wüsste keine Funktion, die Dir den Dateinamen des geladenen Bildes zurückgibt.

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Object-Pascal / Delphi-Language" nach "VCL / WinForms / Controls" verschoben.
Das ist eine VCL-Frage

[bitsetter]

Hi,

versuche es mal so:

Delphi-Quellcode:

  if Assigned(Image1.Picture.Graphic) then
    ShowMessage(Image1.Picture.Graphic.ClassName);

[DeddyH]

Bin ich blöd, oder kommt da dann TJPEGImage bei raus? :gruebel:

[bitsetter]

Noch eine andere Variante:

Delphi-Quellcode:

  if Image1.Picture.Graphic is TBitmap then
    ShowMessage('TBitmap')
  else
    if Image1.Picture.Graphic is TJpegImage then
      ShowMessage('TJpegImage');

[DeddyH]

Wenn ich das richtig verstehe, will er den Dateinamen der geladenen Grafik abfragen. Un dat geit nich IMHO :zwinker:

[Muetze1]

@Bitsetter:

Zitat:

Zitat von Deltachaos

Wie prüfe ich ob gerade z.b. a.jpg oder b.jpg in TImage angezeigt wird?

Ich sehe da ein und den selben Grafiktyp.

[bitsetter]

Zitat:

Zitat von Muetze1

@Bitsetter:

Zitat:

Zitat von Deltachaos

Wie prüfe ich ob gerade z.b. a.jpg oder b.jpg in TImage angezeigt wird?

Ich sehe da ein und den selben Grafiktyp.

Jup, siehe Beitrag #7 von DeddyH.

[Fussball-Robby]

Also: Beim Laden die Dateinamen merken und nachher abrufen.

PS: @bitsetter: Herzlichen Glückwunsch zum 1.111. Post :spin2: :mrgreen:

[DeddyH]

Siehe #2 :lol:

[Fussball-Robby]

Zitat:

Zitat von DeddyH

Siehe #2 :lol:

Habe nur noch mal darauf hingewiesen, da einige die Frage falsch verstanden hatten (ich übrigens auch :mrgreen: )

[DeddyH]

War ja nicht als Kritik gemeint :cheers:

[NickelM]

Ich würde auch einfach eine Variable in der Unit deklarieren :

Delphi-Quellcode:

//bei der unit
var
Filename : String;

// bei der procedure oder function 

begin
Filename := 'a.jpg'
Image1.Picture.LoadFromFile(Filename);
//natürlich vor dem Filename der Pfad

end;