| Subject: | Look Webbrowser Refresh Problem |
| Posted by: | lsllsf (lsll…@tom.com) |
| Date: | Sat, 31 Dec 2005 |
procedure TMainForm.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
var
Num:integer;
Readmessage :Tidmessage;
begin
if selected then
begin
Num:=strtoint(item.Caption);
Readmessage:=Tidmessage.Create(nil);
Readmessage.Clear;
Readmessage := Mailread ( Num );
try
Deletefile(workpath+'temp/temp.eml');
Readmessage.SaveToFile(workpath+'temp/temp.eml');
WebBrowser1.Navigate(workpath+'temp/temp.eml');
finally
Readmessage.free;
MemoryStream.Free;
end;
end;
end;
The Readmessage is different, but The Webbrowser show is same(alway the
first Readmessage). why? help me thanks