|
发表于 2020-12-9 21:15:01
|
显示全部楼层
if frm <> nil then
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; |
|