problem mit LoadFromFile

[marabu]

Wenn ein Picture geladen wurde, wird das Ereignis OnChange() ausgelöst:

Delphi-Quellcode:

procedure TDemoForm.LoadButtonClick(Sender: TObject);
begin
  if not OpenDialog.Execute then
    Exit;
  with Image.Picture  do begin
    OnChange := PictureChange;
    LoadFromFile(OpenDialog.FileName);
  end;
end;

procedure TDemoForm.PictureChange(Sender: TObject);
begin
  ShowMessage('picture loaded');
end;

Grüße vom marabu