XE10 FMX TWebbrowser 如何跑到最底部

發文回覆瀏覽次數：2717

推到 Plurk!

推到 Facebook!

XE10 FMX TWebbrowser 如何跑到最底部

答題得分者是：firesu

heart75047
一般會員

發表：9
回覆：13
積分：19
註冊：2010-05-20

發送簡訊給我

#1 引用回覆回覆

發表時間：2015-12-14 00:09:19

IP:114.33.xxx.xxx 訂閱

想達到Line聊天介面那樣的程式

使用Delphi XE10 用TWebbrowser CSS 達成 "圓角"對話框

在Android上顯示有用，將文字檔存成 html 再用 Google Chrome 開也有效

但是在 win7 Webbrowser 跑還是方的

另一個問題如何用Webbrowser 讀取網頁後直接跑到最底部

網路上查到的都是用 OleObject.Document 可是 Delphi XE10 FMX 的元件沒有這個東西

自己研究過的方法

1. 錨點 anchor

錨點必須存成檔案再用 Navigate 連結

在Win7 用 Navigate('c:/1.html#anchor'); 有效

在Android 用Navigate(System.IOUtils.TPath.GetDocumentsPath PathDelim '1.html#anchor');

他會自己加上 'http://'; 然後就變成找不到網頁

2. 使用javascript

由於javascript還不是很熟爬了很多文還是沒辦法達成連結完成跑到最底部的方法

3. 使用ScrollBox 所有聊天內容自己產生

這點有試成功可以跑到最底層但是需要產生很多元件..

附上源碼

[code delphi]
unit Unit1;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
FMX.Controls.Presentation, FMX.WebBrowser, System.IOUtils;

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
FHtml:TStrings;
procedure ShowHtml;
procedure AddMsg(Msg:string;AAling:integer); //AAling 0=置左 1=置中 2=置右
procedure AddHtml(HtmlText:string);
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.fmx}

function iif(b:Boolean;TrueValue,FalseValue:Variant):Variant;
begin
if b then
Result:=TrueValue
else
result:=FalseValue;
end;

procedure TForm1.AddHtml(HtmlText: string);
begin
FHtml.Append(HtmlText);
ShowHtml;
end;

//AAling 0=置左 1=置中 2=置右
procedure TForm1.AddMsg(Msg:string;AAling:integer);
var SAlign:string;
begin
case AAling of
0 : SAlign:='left';
1 : SAlign:='center';
2 : SAlign:='right';
end;
AddHtml('

' Msg '

');
end;

procedure TForm1.Button1Click(Sender: TObject);
var who:string;
begin
who:=iif(sender = Button1,'A','B');
InputBox('新增對話','說話','',
procedure(const AResult: TModalResult; const AValue: string)
begin
case AResult of
{ Detect which button was pushed and show a different message }
mrOk:begin
AddMsg(who ' : ' AValue,iif(sender = Button1,0,2));
end;
mrCancel:begin
exit;
end;
end;
end
);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage(FHtml.Text);
end;

procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
begin
for I := 0 to 20 do
FHtml.Append('
');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FHtml:=TStringList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
FHtml.Free;
end;

procedure TForm1.ShowHtml;
var WHtml:TStrings;
begin
WHtml:=TStringList.Create;
with WHtml do
begin
Append('<HTML>');
Append('<Head>');

Append('<style type="text/css">');
Append('table {');

Append(' *border-collapse: collapse;');
Append(' border-spacing: 0;');

Append(' display: block;');
Append(' boarder-style: solid;');
Append(' background-color: #FFFFFF;');
Append(' color: #000;');

Append(' border-radius: 50px;}');

Append(' }');

Append('tr:last-child td:first-child{');
Append(' border-radius: 0 0 0 50px;');
Append('}');
Append('tr:last-child td:last-child{');
Append(' border-radius: 0 0 0 50px;');
Append('}');

Append('</style>');

//Append('');
{
Append('var objDiv = document.getElementById("EEE");');
Append('objDiv.scrollTop = objDiv.scrollHeight;');
}
//Append('window.scroll(0,document.body.scrollHeight);');

//Append('');

Append('</Head>');

Append('<Body bgcolor="#88FFFF">'); //FFFF80 >> 16777088 = aqua

//Append('點一下連結到標題一');

Append('

');

AddStrings(FHtml);

//Append('window.scroll(0,document.body.scrollHeight);');

//Append('
');
Append('

');

Append('</Body>');
Append('</HTML>');

Append('');
Append('var objDiv = document.getElementById("EEE");');
Append('objDiv.scrollTop = objDiv.scrollHeight;');
Append('');

WebBrowser1.LoadFromStrings(WHtml.Text,'');

//WebBrowser1.EvaluateJavaScript('window.scroll(0,document.body.scrollHeight);');

//WebBrowser1.LoadFromStrings(WHtml.Text,'#anchor_name');

//WHtml.SaveToFile(System.IOUtils.TPath.GetDocumentsPath PathDelim '1.html');
//WebBrowser1.Navigate(System.IOUtils.TPath.GetDocumentsPath PathDelim '1.html#anchor_name');
{
try
WebBrowser1.Reload;
finally

end;
}
end;
WHtml.SaveToFile('C:\1.html');
WHtml.Free;
end;

end.
[/code]