菜鸟问题:怎么判断image中的图片有没有更新?谢谢
解决方案 »
- ActiveForm在IE中的DAX ERROR
- 请问有没有介绍Object Pascal 方面的书?
- 有哪为大虾帮我看一下如何翻译成Object Passcal (验证通过马上给分)
- 如何用delphi实现对两个目录进行比较
- 请问如何连接oracle数据库?
- 请教怎么实现把数据填写到网页中去?
- 能解决这个问题的人来领分!
- 我想修改tquery的本身,使其在BEFOREOPEN前先执行一个showmessage('1');怎么实现呢.
- 如何编程实现将用form来将word文档post到服务器上?
- 如何对数据库进行定期的更新?
- 3个ehlib使用上的问题?????
- 请问如何用D7的IdSMTP,IdPOP3控件收发邮件?
var OldChangedEvent: TNotyfyEvent;procedure FormCreate(Sender: TObject);//窗口的OnCreate事件
{
OldChangedEvent := Image.Picture.OnChanged;
Image.Picture.OnChanged := ImageChanged;
}
procedure ImageChanged(Sender: TObject);
{
HasChanged := True;
if Assigned(OldChangedEvent) then
OldChangedEvent(Sender);
}手中没有Delphi,没有调试过,主要思想就是这样,有错误自己排下错就可以。
//....
type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
//....
private
FOldPictureChange: TNotifyEvent;
procedure PictureChange(Sender: TObject);
end;
//....
procedure TForm1.FormCreate(Sender: TObject);
begin
FOldPictureChange := Image1.Picture.OnChange;
Image1.Picture.OnChange := PictureChange;
end;procedure TForm1.PictureChange(Sender: TObject);
begin
Caption := TimeToStr(Time); //测试用
{ TODO : 图片已经更新 }
if Assigned(FOldPictureChange) then FOldPictureChange(Sender);
end;
//....