怎么消除windows的蓝条(30分)

每个界面的上方 不是有一个蓝条
怎么消除

怎么消除，是改颜色吗？

BorderStyle:=bsNone;

处理 WM_NCPAINT ，你想画什么就画什么吧...
哈哈，只要不画开档裤就行了

参考此贴：

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1444907

散分

蓝条的左上角不是还有一个delphi图标吗
也可以一起删除吗

我刚回答了这个问题，请看
来自：gun_zf, 时间：2002-11-21 10:46:00, ID：1447404 | 编辑
1、把窗体BorderStyle属性该为:bsNone
2、在窗体中放置一个panel,设置panel的align属性为alclint,再设置边框属性。
其余的东西就放在panel上。

处理 WM_NCPAINT 是什么意思！~
我试过了那段代码 好象没有什么效果
p.s：设置BorderStyle:=bsNone;的方法不能满足我的要求的
请再次指教

请写出你具体要达到什么样的效果，大家才能帮你啊

拿这个代码去试试：

unit demofrm;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
private
procedure WMNCPAint(var Msg : TMessage); message WM_NCPAINT;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMNCPAint(var Msg : TMessage);
var
ADC : HDC;
ARgn: HRGN;
lb: TLOGBRUSH;
hBr: HBRUSH;
ARect: TRect;
AText: string;
OldBr: HBRUSH;
begin
ARect := Rect(2, 2, 120, 20);
ARgn := CreateRectRgn(ARect.Left , ARect.Top , ARect.Right , ARect.Bottom );
ADC := GetWindowDC(Handle);

lb.lbStyle := BS_SOLID;
lb.lbColor := clRed;
lb.lbHatch := 0;
hBr := CreateBrushIndirect(lb);

try
OldBr := SelectObject(ADC, hBr);
FillRgn(ADC, ARgn, hBr);

AText := 'Hello, baby!';
DrawText(ADC, PChar(AText), Length(AText), ARect, DT_SINGLELINE or DT_VCENTER or DT_CENTER);
finally
SelectObject(ADC, OldBr);
DeleteObject(hBr);
end;
Msg.Result := 0;
end;

end.

谢谢
收到！！！！