くだすれDelphi(超初心者用)その13
■ このスレッドは過去ログ倉庫に格納されています
0699デフォルトの名無しさん
NGNG開いた先のページのURLを
WebBrowser1(表示用、align=alClient)
WebBrowser2(ページの大きさの取得用、aligin=alCustom)
の両方に読み込んで、onDocumentComplete2で
var
body: OleVariant;
WebBW: Integer;
WebBH: Integer;
begin
body := (WebBrowser2.Document as IHTMLDocument2).Body;
try
WebBW := body.scrollWidth + (Width - WebBrowser1.Width) + 24;
if WebBW < Screen.Width then
Width := WebBW;
except
end;
try
WebBH := body.scrollHeight + (Height - WebBrowser1.Height) + 16;
if WebBH < Screen.Height then
Height := WebBH;
except
end;
end;
で読み込んだ先のページの大きさにブラウザの大きさを合わせるようにしてるんですが
PNGファイルを読み込むと正しい大きさで表示してくれないんです。
とりあえず拡張子で判断して、PNGの場合ブラウザの大きさを変えないようにしてみます。
■ このスレッドは過去ログ倉庫に格納されています