線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1545
推到 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]
GrandRURU
站務副站長


發表:234
回覆:1651
積分:1742
註冊:2005-06-21

發送簡訊給我
#2 引用回覆 回覆 發表時間:2015-12-14 08:56:24 IP:59.120.xxx.xxx 未訂閱
我記得 TWebBrowser 在 Windows 下是用 IE 核心
可以再試試看
heart75047
一般會員


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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2015-12-14 23:26:29 IP:114.33.xxx.xxx 訂閱
已測試用IE開網頁的確是方的
但是 CSS 已經加入
*border-collapse: collapse;
border-spacing: 0;
據說是IE也適用
由於CSS還不是很熟 所以這部分也搞不太清楚..
firesu
初階會員


發表:21
回覆:19
積分:38
註冊:2004-12-27

發送簡訊給我
#4 引用回覆 回覆 發表時間:2015-12-24 13:31:26 IP:60.248.xxx.xxx 未訂閱
javascript
window.scrollTo(0,document.body.scrollHeight);
試試看
heart75047
一般會員


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

發送簡訊給我
#5 引用回覆 回覆 發表時間:2015-12-27 13:12:58 IP:114.33.xxx.xxx 訂閱
感謝 firesu

已試過可以用
系統時間:2017-10-18 2:33:42
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!