Icon in DBimage

[thomasdrewermann]

Meine DataSource steht schon auf Auto Edit, ausserdem muss es ja zumindest gehen wenn man auf das Edit-Button klick. Dann muss man das Icon ja mit diesem Code laden können:

Code:

procedure TFrame7.Button1Click(Sender: TObject);
var 
  pic:tpicture;
begin
  if opendialog1.Execute then
  begin
    dbimage1.Picture.Icon.LoadFromFile(opendialog1.FileName);
  end;
end;

Danach ja mit dem Haken übernehmen können?

Aber dann wird as Icon nicht übernommen sondern das dbimage1 wird wieder leer....

Schade

Vielleicht hat ja jemand noch eine andere Idee...

MFG
Thomas

by Daniel B; Code-Form.