Notifikationer

Markér alle som læst Log ud

cr2000 Nybegynder

22. maj 2003 - 02:46 Der er 7 kommentarer og
1 løsning

TWebBrowser og den grimme "kant" og scrollbar.

Nogle måde jeg kan fjerne det på ?

http://bpracing.dk/screenshot.JPG - Det ser jo ikke for hipt ud :)

Synes godt om

dkn Nybegynder

22. maj 2003 - 14:31 #1

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 :)

Synes godt om

dkn Nybegynder

22. maj 2003 - 14:55 #2

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.

Synes godt om

cr2000 Nybegynder

22. maj 2003 - 22:36 #3

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.

Synes godt om

cr2000 Nybegynder

22. maj 2003 - 22:52 #4

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

Synes godt om

dkn Nybegynder

22. maj 2003 - 23:53 #5

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

Synes godt om

tommya Nybegynder

06. oktober 2006 - 14:53 #6

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

Synes godt om

tommya Nybegynder

06. oktober 2006 - 14:54 #7

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.

Synes godt om

cr2000 Nybegynder

06. oktober 2006 - 15:07 #8

Hehe.

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

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Bat file. Af johnnylassen i Andet programmering	4	23/04/202616:10	24/04/202609:43
Hjælp til Api.asmx Af lurup i Andet programmering	1	17/03/202609:27	17/03/202614:12
burgermenu til hjemmeside - hjælp! Af SabrinaL i Andet programmering	2	12/11/202514:10	02/12/202520:42
Hjælp til programmering af website Af hamdenlange i Andet programmering	16	17/08/202522:26	19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering	8	24/07/202513:06	28/07/202517:03

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS