新建两个窗体,frmMain和frmConfig
在frmMain中放一个skinData1,panel1
在代码中执行停靠时,
frmConfig中的Button不是skinData1设定的风格
其它的窗体弹出,风格没有问题。就是不能停靠。
如果把停靠的窗体通过双击上面的小栏,变回一个完整的窗体,
这时Button才变成skinData1中设定的风格
一天了,郁闷啊!
在frmMain中放一个skinData1,panel1
在代码中执行停靠时,
frmConfig中的Button不是skinData1设定的风格
其它的窗体弹出,风格没有问题。就是不能停靠。
如果把停靠的窗体通过双击上面的小栏,变回一个完整的窗体,
这时Button才变成skinData1中设定的风格
一天了,郁闷啊!
procedure frmConfig.FormActivate(Sender: TObject);
begin
frmMain.mySkinData.SkinForm(Self.Handle);
end;
begin
LockWindowUpdate(Panel_Client.Handle);
try frm.Hint := ACaption;
frm.BorderStyle := bsNone;
frm.Visible := false;
frm.Parent := Panel_Client;
frm.Align := alClient;
frm.Visible := true;
skindata1.AddNestForm(Self, frm);
skindata1.UpdateSkinControl(self);
frm.SetFocus;
except; end;
LockWindowUpdate(0);
end; end;