窗口拆分 ( 积分: 50 )

我在设计窗口拆分(注)时有两个Memo(Memo1,Memo2)

Memo2.Height := Memo1.Height * 2;

问题是在Form Resize 时如何还是保持一样的比例?

注 : 窗口拆分--的意思就象 Word2000中主菜单->窗口->拆分那个意思

我在设计窗口拆分(注)时有两个Memo(Memo1,Memo2)

Memo2.Height := Memo1.Height * 2;

问题是在Form Resize 时如何还是保持一样的比例?

注 : 窗口拆分--的意思就象 Word2000中主菜单->窗口->拆分那个意思

在OnFormResize里面再写Memo2.Height := Memo1.Height * 2;并重新制定二者的位置

可以通过动态添加窗口的方法,用一横条模拟,横条最后在哪里,添加的窗口就置于那里!

好像有个控件...

spliter控件

unit1.dfm

///////////////////
object Form1: TForm1
Left = 228
Top = 156
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 185
Top = 0
Height = 453
end
object Memo1: TMemo
Left = 0
Top = 0
Width = 185
Height = 453
Align = alLeft
Lines.Strings = (
'Memo1')
TabOrder = 0
end
object Memo2: TMemo
Left = 188
Top = 0
Width = 500
Height = 453
Align = alClient
Lines.Strings = (
'Memo2')
TabOrder = 1
end
end