我的工程的的窗体都是继承一个基类窗体,复制当前单元文件出现一些属性丢失的情况,例如:<br /><br />
见附件,功能很方便,望解决....
附件上传不上去,直接代码吧
原窗体文件:
inherited FrmMzks: TFrmMzks
Left = 0
Top = 0
Caption = #38376#35786#31185#23460
ClientHeight = 798
ClientWidth = 1112
Font.Height = -12
Font.Name = 'Segoe UI'
ExplicitWidth = 1112
ExplicitHeight = 798
TextHeight = 15
inherited RzPanel1: TRzPanel
Width = 1112
Height = 758
ExplicitWidth = 1112
ExplicitHeight = 758
inherited PaneOption: TRzPanel
Top = 757
Width = 1110
Height = 0
ExplicitTop = 757
ExplicitWidth = 1110
ExplicitHeight = 0
inherited RzLine1: TRzLine
Width = 1100
ExplicitWidth = 1100
end
end
复制后:
object FrmMzks1: TFrmMzks1
Left = 0
Top = 0
BorderStyle = bsNone
Caption = #38376#35786#31185#23460
ClientHeight = 798
ClientWidth = 1112
Color = clBtnFace
DoubleBuffered = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Icon.Data = {}
[
本帖最后由 zhuolong1987 于 2022-4-13 09:01 编辑 ]
