在网上搜了很多方法,感觉都不好用。
有说用Form1.Hide的,但是我发现这个根本没用。
有说用showwindow(application.handle,sw_hide);   的,也不行。
有说
在工程文件的   
  Application.Run;   
  前面加上   
  Application.ShowMainForm:=False;   的,这个倒是可以隐藏,就是窗体上面的WebBrowser控件用不了了。期待高手给一个完美的解决办法啊。

解决方案 »

  1.   

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      Self.WebBrowser1.Navigate('WWW.SINA.COM');
      Windows.SetParent(WebBrowser1.Handle, 0);
    end;  Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      Application.ShowMainForm:=False;
      Application.Run;
      

  2.   

    你是想要实现窗体透明吧
    在interface的private里加入   
        
      PROCEDURE   CMEraseBkgnd(var   Message:TWMEraseBkgnd);Message   WM_ERASEBKGND;   
        
      在implemetation里加入   
      PROCEDURE   Tform1.CMEraseBkgnd(var   Message:TWMEraseBkgnd);   
      BEGIN   
          brush.style:=bsClear;   
          Inherited;   
      END;   
      

  3.   

    SetWindowLong(Application.handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
      

  4.   

    不好使啊,老哥,
    SetWindowLong(Application.handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
    这句话要放在什么地方?
    我放在FormCreate和FormShow方法里面都不行哦。
      

  5.   

    我试了是
    SetWindowLong(Application.handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);

    Windows.SetParent(WebBrowser1.Handle, 0); 
    不能同时使用。可有什么好的解决办法吗?
      

  6.   

    procedure TForm1.FormCreate(Sender: TObject);
     var
    dwStyle:DWORD;
    begin
    dwStyle:= WS_EX_TOOLWINDOW;
    SetWindowLong(Application.Handle, GWL_EXSTYLE, dwStyle);
    end;
      

  7.   

    楼上的这个不还是一回事嘛。
    我现在的需求是:
    1、窗体隐藏
    2、窗体也不要在任务栏上显示
    3、窗体上有一个 WebBrowser1 控件,好要能正常用。
      

  8.   

    起码你得告诉大家用的 delphi 版本。
      

  9.   


    我试了是 
    SetWindowLong(Application.handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW); 
    和 
    Windows.SetParent(WebBrowser1.Handle, 0); 
    不能同时使用。 可有什么好的解决办法吗?
      

  10.   

    program Project1;uses
      Forms, windows,
      Unit1 in 'Unit1.pas' {Form1};{$R *.res}begin
      Application.Initialize;
      SetWindowLong(Application.handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);  Application.CreateForm(TForm1, Form1);
      Application.Run;
    end.
    隐藏任务管理器中的进程