Здравствуйте, Сергей, Вы писали:
С>Здравствуйте, Nagir, Вы писали:
С>С>procedure TImageWinControl.mSetImage (image : TImage);
С>begin
С> if Assigned (image) then
С> begin
С> mImage.Assign (image);
С> mImage.Picture.OnChange := imageChanged;
С> end;
С>end;
С>
С>Оно?
Не совсем оно. OnChange вызывается даже при инициализации — не подходит.
Единственное что придумал для проверки наличия картинки — это проверить ширину или высоту:
if mImage.Picture.Width = 0 then
begin
//....
end
else
begin
//....
end;
Ничего лучше пока не придумал
