怎么作才能作到把一个窗体分成两部分。并且能随意拖动这两部分的大小 怎么作才能作到把一个窗体分成两部分。并且能随意拖动这两部分的大小,就是说拖动窗体中间的那条线,那么窗体的两部分随着手动而改变大小,但总窗体的大小是没有变。 我不知道在那个事件下,用什么控件写。谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 新建一空白窗体上面放两个Panel设置Panel1的Align属性为alLeft再放一个TSplitter把另一个Panel2的Align属性高为alClientOK 这是完整的dfm,你看看吧object Form1: TForm1 Left = 258 Top = 161 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 Width = 100 Height = 446 Cursor = crHSplit end object Panel1: TPanel Left = 0 Top = 0 Width = 185 Height = 446 Align = alLeft Caption = 'Panel1' TabOrder = 0 end object Panel2: TPanel Left = 285 Top = 0 Width = 403 Height = 446 Align = alClient Caption = 'Panel2' TabOrder = 1 object Button1: TButton Left = 104 Top = 128 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 0 OnClick = Button1Click end endend delphi adoquery open oracle case 报错 Delphi 通过提交表单方式上传文件? delphi 怎样返回存诸过程参数 过程中的参数困惑 求助:为何用moveby作数据插入的时候,指针不能自动向下跳? 请教一个有关Memo控件的使用问题! 怎么样把Access数据转换成paradox类型数据啊???Delphi自带的工具行不行啊? 多用户访问的安全机制问题。UP有分。 我是新手,问一个关于窗体的问题,delphi高手请进! 如何隐藏系统托盘上的图标? clientdataset的applyupdate的更新问题!急! 请教个imagelist 的问题!
上面放两个Panel
设置Panel1的Align属性为alLeft
再放一个TSplitter
把另一个Panel2的Align属性高为alClientOK
Left = 258
Top = 161
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
Width = 100
Height = 446
Cursor = crHSplit
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 185
Height = 446
Align = alLeft
Caption = 'Panel1'
TabOrder = 0
end
object Panel2: TPanel
Left = 285
Top = 0
Width = 403
Height = 446
Align = alClient
Caption = 'Panel2'
TabOrder = 1
object Button1: TButton
Left = 104
Top = 128
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
end
end