A aerobull Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-29 #1 某一个form已经不是当前活动窗口，有什么办法让他的caption的颜色还是与活动时一样？
轻 轻舞肥羊 Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-29 #5 TForm1 = class(TForm) private procedure WMNCACTIVATE(var Message : TMessage);message WM_NCACTIVATE; end; procedure TForm1.WMNCACTIVATE(var Message: TMessage); begin message.wParam := 1; end;
TForm1 = class(TForm) private procedure WMNCACTIVATE(var Message : TMessage);message WM_NCACTIVATE; end; procedure TForm1.WMNCACTIVATE(var Message: TMessage); begin message.wParam := 1; end;
H hs-kill Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-29 #6 type TForm1 = class(TForm) private { Private declarations } procedure WMNCACTIVE(var msg: TMessage); message WM_NCACTIVATE; public { Public declarations } end; procedure TForm1.WMNCACTIVE(var msg: TMessage); begin msg.WParam:=integer(true); inherited; end;
type TForm1 = class(TForm) private { Private declarations } procedure WMNCACTIVE(var msg: TMessage); message WM_NCACTIVATE; public { Public declarations } end; procedure TForm1.WMNCACTIVE(var msg: TMessage); begin msg.WParam:=integer(true); inherited; end;
X xiammy Unregistered / Unconfirmed GUEST, unregistred user! 2006-09-29 #8 象TBX,TMS自己本身都实现了一些泊靠窗体，都是自己实现的Caption部分。 你也只要去掉Form原来的Caption部分，自己定义一个高度的Caption就可以了。
