ＩｎｔｒａＷｅｂ高手抢分系列之二(TIWTimer.OnAsyncTimer事件中如何刷新图片) ( 积分: 200 )

ＩｎｔｒａＷｅｂ高手抢分系列之二(TIWTimer.OnAsyncTimer事件中如何刷新图片)

IWTimer1.OnAsyncTimer事件中判断条件，如果满足某一条件，则更换IWImageFile1的图片

(IWImageFile1.ImageFile.Filename := 'c:/xxxx.bmp');

恳请各位高手相助。

声明一个TFrame，上面放一个IWImageFile，在主窗口中创建10个TFrame，TIWTimer.OnAsyncTimer事件中只有一个被刷新

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
var Frames: array[0..9] of TIWFrame;
var i: Integer;
begin
for i:=0 to 9 do
begin
Frames := TIWFrame.Create(Self);
Frames.Parent := Self;
Frames.Name := Format( 'IWFrame_%d ', );
Frames.IWLabel.Caption := Frames.Name;
end;
end;

procedure TIWForm1.IWTimer1AsyncTimer(Sender: TObject; EventParams: TStringList);
var i: Integer;
begin
Tag := Tag + 1;
if Odd(Tag) then
begin
for i:=0 to 9 do Frames.IWImageFile1.ImageFile.Filename := '/files/0001.jpg ';
end else
begin
for i:=0 to 9 do Frames.IWImageFile1.ImageFile.Filename := '/files/0002.jpg ';
end;

end;

求份intraweb調用fastreport原碼
原出錢購買
QQ：273349538

还有这么发广告的,汗!