TWebBrowser og den grimme "kant" og scrollbar.

Du skal huske at scrollbar problemet jo faktisk ligger på din webside hvor du kan skrive:
<body scroll="no">

det med border skal jeg lige tænke over :)

Ok ved sku ikke om der lige er andre måder, men jeg kom på denne ide:

Procedure FjernBorderFraWebbrowser(Browser:TWebbrowser);
var
  Hide: TPanel;
  i: integer;
const
  Align: array[1..4] of TAlign = (alTop, alBottom, alLeft, alRight);
begin
  for i := 1 to 4 do
  begin
    Hide := TPanel.Create(nil);
    Hide.Parent := Browser;
    Hide.Align := Align[I];
    Hide.BevelOuter := bvNone;
    Hide.Width := 2;
    Hide.Height := 2;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FjernBorderFraWebbrowser(webbrowser1);
  webbrowser1.Navigate(extractfilepath(application.ExeName) + 'test.htm');
end;

Måske lame, men lidt smart er det da :)
I dit tilfælde ser det ud som om du vil have sort border, så bare tilføj:
Hide.Color := Clblack;
så skulle den være der.

Håbede på der var en anden måde at gemme scrollbaren end at gøre det på hjemmesiden.

Og jeg håber så sandelig også der er en bedre måde at gemme kanten.

dkn < Venter lige og ser om der ikke var en anden som ved hvordan man kan gøre.
Ellers får du pointsne.

ok, prøv evt at se på msdn om der er noget med border og twebbrowser

procedure WB_Set3DBorderStyle(Sender: TObject; bValue: Boolean);
{
  bValue: True: Show a 3D border style
          False: Show no border
}
var
  Document : IHTMLDocument2;
  Element : IHTMLElement;
  StrBorderStyle: string;
begin
  Document := TWebBrowser(Sender).Document as IHTMLDocument2;
  if Assigned(Document) then
  begin
    Element := Document.Body;
    if Element <> nil then
    begin
      case BValue of
        False: StrBorderStyle := 'none';
        True: StrBorderStyle := '';
      end;
      Element.Style.BorderStyle := StrBorderStyle;
    end;
  end;
end;

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
// Put this code in the OnDocumentComplete event as well
begin
  WB_Set3DBorderStyle(Sender, False);
end;

Tilføj den også i OnDocumentComplete, og husk at tilføj MSHTML i uses... koden er taget fra http://www.swissdelphicenter.ch/torry/printcode.php?id=1171

Scrollbars forresten siges at kunne fjernes ved hjælp af:
WB.OleObject.document.body.style.overflowX := 'hidden';
WB.OleObject.document.body.style.overflowY := 'hidden';

(WB) er selvfølgelig din WebBrowser component, men medmindre du vil have fjernet scrollbars uanset side, bør du nok gøre det i css på dit website.

Hehe.

Det er godt nok et stykke tid siden jeg oprettede dette spørgsmål :D