procedure TForm1.OnWMNCACTIVE(var msg: TWMNCACTIVATE); var fmsg:TMessage; begin inherited; if msg.Active then begin fmsg.Msg:=msg.Msg; fmsg.WParam:=integer(msg.Active); self.OnWMNCPAINT(fmsg); end; end;procedure TForm1.OnWMNCPAINT(var msg: TMessage); var cans:TCanvas;dc:HDC; begin inherited; dc:=getwindowdc(self.Handle); cans:=TCanvas.Create; cans.Handle:=dc; cans.Brush.Color:=clred; cans.Rectangle(0,0,100,20); releasedc(self.Handle,dc); cans.Free; end;
听说用什么消息或API可以
但具体怎么做,还请详细指点
谢谢
var fmsg:TMessage;
begin
inherited;
if msg.Active then
begin
fmsg.Msg:=msg.Msg;
fmsg.WParam:=integer(msg.Active);
self.OnWMNCPAINT(fmsg);
end;
end;procedure TForm1.OnWMNCPAINT(var msg: TMessage);
var cans:TCanvas;dc:HDC;
begin
inherited;
dc:=getwindowdc(self.Handle);
cans:=TCanvas.Create;
cans.Handle:=dc;
cans.Brush.Color:=clred;
cans.Rectangle(0,0,100,20);
releasedc(self.Handle,dc);
cans.Free;
end;