或BorderStyle为bsSizeToolWindows等,不过就没了最小/最大化按钮了。

解决方案 »

  1.   

    to  enlightenment(阿明--进入准冬眠状态的超人) :
     完全透明的图标也要占地方啊!!我的意思是要把窗体上的那个图标所占的空间设为0
      

  2.   

    unit Unit1;interfaceuses
     SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
     Forms, Dialogs, Buttons, DdeMan, StdCtrls;type
     TForm1 = class(TForm)
        Button1: TButton;
       procedure FormResize(Sender: TObject);
     private
       TitleButton : TRect;
       procedure DrawTitleButton;
       {Paint-related messages}
       procedure WMSetText(var Msg : TWMSetText); message WM_SETTEXT;
       procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;
       procedure WMNCActivate(var Msg : TWMNCActivate); message WM_NCACTIVATE;
     end;var
     Form1: TForm1;implementation
    {$R *.DFM}procedure TForm1.DrawTitleButton;
    begin
      //画你的标题图片、文字
    end;{Paint triggering events}
    procedure TForm1.WMNCActivate(var Msg : TWMNCActivate);
    begin
     Inherited;
     DrawTitleButton;
    end;procedure TForm1.FormResize(Sender: TObject);
    begin
     Perform(WM_NCACTIVATE, Word(Active), 0);
    end;{Painting events}
    procedure TForm1.WMNCPaint(var Msg : TWMNCPaint);
    begin
     Inherited;
     DrawTitleButton;
    end;procedure TForm1.WMSetText(var Msg : TWMSetText);
    begin
     Inherited;
     DrawTitleButton;
    end;
    end.