TWebBrowser - Vise website

doh, har fundet ud af det..
havde brugt " i stedet for ' ved Navigate.

Sorry.

en anden mulighed....ss

private
      procedure FindAddress;

procedure TSlBrowser.HomePageRequest(var Message: TMessage);
begin
  URLs.Text := 'http://www.eksperten.dk';
  FindAddress;

Hej Stone - tak for dit svar.

Min løsning virker OK men jeg vil bede dig om noget andet. Vil gerne sætte pointsene op til 200 for denne opgave.

Jeg skal bruge runde hjørner på min Form. Borderstyle er altså sat til "None".
Kan du hjælpe mig med dette?

På forhånd tak

indsæt i din form1 create

const
  C = 20;
var
  Points: array [0..7] of TPoint;
  h, w: Integer;
begin
  h := Form1.Height;
  w := Form1.Width;
  Points[0].X := C;    Points[0].Y := 0;
  Points[1].X := 0;    Points[1].Y := C;
  Points[2].X := 0;    Points[2].Y := h - c;
  Points[3].X := C;    Points[3].Y := h;

  Points[4].X := w - c; Points[4].Y := h;
  Points[5].X := w;    Points[5].Y := h - c;

  Points[6].X := w;    Points[6].Y := C;
  Points[7].X := w - C; Points[7].Y := 0;

  SetWindowRgn(Form1.Handle, CreatePolygonRgn(Points, 8, WINDING), True);

eller....

var
  rgn: HRGN;
begin
  Form1.Borderstyle := bsNone;
  rgn := CreateRoundRectRgn(0,// x-coordinate of the region's upper-left corner
    0,            // y-coordinate of the region's upper-left corner
    ClientWidth,  // x-coordinate of the region's lower-right corner
    ClientHeight, // y-coordinate of the region's lower-right corner
    40,          // height of ellipse for rounded corners
    40);          // width of ellipse for rounded corners
  SetWindowRgn(Handle, rgn, True);

end;

også i din form1.create

alletiders, jeg prøver det i eftermiddag.

hvis det er let kan du så fortælle mig hvordan man fjerner "3d" rammen rundt om TWebBrowser'en?

Vender tilbage med point senere hvis det virker :)

her er lidt at lege med i eftermiddag = 3d border

http://www.swissdelphicenter.ch/en/showcode.php?id=1171

her et eksempel....

uses  MSHTML

procedure WB_SetBorderStyle(Sender: TObject; BorderStyle: String);
{
  BorderStyle values:

  'none'        No border is drawn
  'dotted'      Border is a dotted line. (as of IE 5.5)
  'dashed'      Border is a dashed line. (as of IE 5.5)
  'solid'        Border is a solid line.
  'double'      Border is a double line
  'groove'      3-D groove is drawn
  'ridge'        3-D ridge is drawn
  'inset'        3-D inset is drawn
  'window-inset' Border is the same as inset, but is surrounded by an additional single line
  'outset'      3-D outset is drawn

  See: http://msdn.microsoft.com/library/default.asp?url=/workshop/author/dhtml/reference/properties/borderstyle.asp
}

var
  Document : IHTMLDocument2;
  Element : IHTMLElement;
begin
  Document := TWebBrowser(Sender).Document as IHTMLDocument2;
  if Assigned(Document) then
  begin
    Element := Document.Body;
    if Element <> nil then
    begin
      Element.Style.BorderStyle := BorderStyle;
    end;
  end;
end;

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.Button1Click(Sender: TObject);
begin
Webbrowser1.Navigate('www.SwissDelphiCenter.ch');
end;

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
// Examples:
  // Show no border
  WB_Set3DBorderStyle(Sender, False);
  // Draw a double line border
  WB_SetBorderStyle(Sender, 'none');
  // Set a border color

end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
// Examples:
  // Show no border
  WB_Set3DBorderStyle(Sender, False);
  // Draw a double line border
  WB_SetBorderStyle(Sender, 'none');
  // Set a border color

end;

Hej Stone, 1000 tak for al din hjælp. Jeg har desværre ikke tid til  at teste lige nu men det har jeg i morgen.
Jeg melder tilbage i morgen aften.
Beklager forsinkelsen :-)

hey, så fik jeg testet det idag alligevel.. kan jeg få hjørnerne til at være runde i stedet for "skåret over" som nu? Bare så de har en lille bue.
:)

jo da så bruger du bare den her...


var
  rgn: HRGN;
begin
  Form1.Borderstyle := bsNone;
  rgn := CreateRoundRectRgn(0,// x-coordinate of the region's upper-left corner
    0,            // y-coordinate of the region's upper-left corner
    ClientWidth,  // x-coordinate of the region's lower-right corner
    ClientHeight, // y-coordinate of the region's lower-right corner
    40,          // height of ellipse for rounded corners
    40);          // width of ellipse for rounded corners
  SetWindowRgn(Handle, rgn, True);

Ah ja, selvfølgelig ;)
Tak!
Smid et svar!!

takker....

Hvis du har lyst/tid kan du så svare/sende mig et sted hen mht følgende:

Jeg har, som sagt, et TWebBrowser component.
Jeg vil gerne have at, hvis man DOBBELTKLIKKER på webbrowseren laver den Application.Minimize;
Og hvis man KLIKKER og TRÆKKEr (click and drag) så flytter programmet sig. Altså som når man gør det i det blå titelfelt.

:)

har kun lige et bud på flyt formen....

placeres over Implementation

const
    sc_DragMove        = $F012; //const for at trække formen


koden her placeres i din FormMouseDown

ReleaseCapture;
    Perform( WM_SysCommand, sc_DragMove , 0 )  //trækker formen

ups glemte lige du skal sætte webbrowser dragmode til DmAutomatic

og i webbrowser OnStartDrag skriver du det samme som i FormMouseDown

så virker det også når du trækker i webbrowsen.....

//stone

fedt nok - det tester jeg lige om snart!

fedt nok, men det virker desværre ikke på browseren (onstartdrag)

webbrowser dragmode = DmAutomatisk

flyt koden til OnDragOver i webbrowser

form1 dragmode = DmManual

så virker det ...har testet det

mystisk

jeg har følgende kode:
procedure TForm1.WebBrowser1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
ReleaseCapture;
    Perform( WM_SysCommand, sc_DragMove , 0 )  //trækker formen
end;

og der sker intet. DragMode står rigtigt begge steder.
Det virker fint på selve formen men ikke på webbrowseren

hmm sidder faktisk og leger lidt med det men det virker perfekt her..

har du ikke glemt at sætte webbrowser dragmode til dmautomatisk?

det var dog mystisk.. jeg bruger delphi 7 enterprise.

den står til dmautomatic.

skal jeg sende mit eksempel til dig.... så kan du kigge lidt på det

ja tak, r_amby@hotmail.com vil være fint.

jeg bruger d5 interprise men det burde ikke have nogen betydning

har sendt det men muligheden for at den bliver afvist er stor når det er hotmail.. de tillader ikke exe filer selvom de er zipped...

got it

men din virker heller ikke når du har
WebBrowser1.Navigate('http://www.google.com');
:)

har du en idé til det?

ok det har jeg ikke lige tænk på men jeg kan da prøve

:-)

ps: den ligger som nyt topic under delphi nu..