W wjsound Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-22 #1 怎样在分割控件splitter上写文字，就像foxmail能在可控条上写邮件主题一样.
Q QuickSilver Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-22 #2 用Canvas画布属性 splitter1.Canvas.Font.Name := '楷体_GB2312'; splitter1.Canvas.Font.size := 16; splitter1.Canvas.Font.style := [fsItalic,fsBold]; splitter1.Canvas.TextOut(splitter1.Width div 2,splitter1.height div 2,'abcd');
用Canvas画布属性 splitter1.Canvas.Font.Name := '楷体_GB2312'; splitter1.Canvas.Font.size := 16; splitter1.Canvas.Font.style := [fsItalic,fsBold]; splitter1.Canvas.TextOut(splitter1.Width div 2,splitter1.height div 2,'abcd');
D darksmile Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-22 #5 别指望用TSplitter能办到. Foxmail用的是TRxSplitter控件,在RxLib控件包里有 至于RxLib控件包,自己去找!
吴 吴下阿蒙 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-23 #6 你用panel不行吗？ panelTop splitter1 panelClient PanelTip splitter1.height := 25; PanelTip.height := 21; procedure TForm1.Splitter1Moved(Sender: TObject); begin PanelTip.left := Splitter1.Left; PanelTip.Top := Splitter1.Top +2; PanelTip.width := Splitter1.width; end; 限制panel的固定高度，顶端对齐
你用panel不行吗？ panelTop splitter1 panelClient PanelTip splitter1.height := 25; PanelTip.height := 21; procedure TForm1.Splitter1Moved(Sender: TObject); begin PanelTip.left := Splitter1.Left; PanelTip.Top := Splitter1.Top +2; PanelTip.width := Splitter1.width; end; 限制panel的固定高度，顶端对齐
