Moin,
da bin ich schon wieder.
Delphi-Quellcode:
procedure TDataModule1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if FileExists(DataModule1.DataSource1.DataSet.FieldbyName('FotoNord').AsString) then
Hauptformular.Hauptfenster.Image1.Picture.LoadFromFile(DataModule1.DataSource1.DataSet.FieldbyName('FotoNord').AsString);
else
//Bild löschen
// Bild neu zeichnen
Hauptformular.Hauptfenster.image1.Refresh;
end;
Bleibt das letzte Bild der Spalte "FotoNord" angezeigt. Auch wenn ich einen neuen Datensatz erstelle und dort kein Bildernamen eintrage.
Irgendwie sehe ich grade keinen Weg wie ich das Bild löschen kann, ausser ein leeres Bild zuzuweisen.
Geht das auch anders?
Gruß Heiko