Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Abfrage welche Datei in TImage.picture geladen ist

  Alt 18. Jan 2014, 12:12
Gar nicht, denn der Image-Komponente ist es sowas von egal, woher die Daten stammen.

Wenn diese Information benötigt wird, dann musst du dir die schon selber merken.

z.B. über eine Eigenschaft
Delphi-Quellcode:
TForm1 = class( TForm )
Image1 : TImage;
private
  FImageFile : string;
  procedure SetImageFile( const Value : string );
public
  property ImageFile : string read FImageFile write SetImageFile;
end;

procedure TForm1.SetImageFile( const Value : string );
begin
  if Value = ImageFile then
    Exit;

  Image1.Picture.LoadFromFile( Value );
  FImageFile := Value;
end;
Der Setter erfüllt nun mehrere Sachen:
Die gleiche Datei (gleicher Name) wird nur einmal geladen, auch wenn man die x-mal zuweist.
Konnte die Datei nicht geladen werden, so wird auch der Dateiname nicht gespeichert (weil dann eine Exception geworfen wird)
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)

Geändert von Sir Rufo (18. Jan 2014 um 17:21 Uhr)
  Mit Zitat antworten Zitat