是否有將Form 分成上下左右四等份的Splitter? |
尚未結案
|
willykcwen
一般會員 ![]() ![]() 發表:1 回覆:5 積分:1 註冊:2002-10-29 發送簡訊給我 |
|
qoo1234
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
放入四個TBevel元件,再放入三個TSplitter元件.. 三個TSplitter元件各設為
object Splitter1: TSplitter
Left = 193
Top = 53
Width = 3
Height = 235
Cursor = crHSplit
end
object Splitter2: TSplitter
Left = 0
Top = 50
Width = 536
Height = 3
Cursor = crVSplit
Align = alTop
end object Splitter3: TSplitter
Left = 0
Top = 288
Width = 536
Height = 3
Cursor = crVSplit
Align = alBottom
end
![]() |
willykcwen
一般會員 ![]() ![]() 發表:1 回覆:5 積分:1 註冊:2002-10-29 發送簡訊給我 |
|
willykcwen
一般會員 ![]() ![]() 發表:1 回覆:5 積分:1 註冊:2002-10-29 發送簡訊給我 |
|
qoo1234
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
將Form 分成上下左右四等份的Splitter..請下載以下元件參考: http://delphi.ktop.com.tw/download/upload\30866_splcrs01.lzh
共計放五個該元件,第一個元件用來控制其他元件的位置,
例如:AreaBL、AreaBR、AreaTL、AreaTR等。
下圖是示範:不只可以左右調整,還可以做同步調整區塊大小。
![]() ![]() |
wnhoo
高階會員 ![]() ![]() ![]() ![]() 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var h,w:integer;
begin h:=form1.ClientHeight ;
w:=form1.Clientwidth; Canvas.MoveTo(0,h div 2 );
Canvas.LineTo(w,h div 2 ); Canvas.MoveTo(w div 2,0 );
Canvas.LineTo(w div 2,h );
end; 供参考!!! 风花雪月 e梦情缘
------
风花雪月 e梦情缘 |
turboted
版主 ![]() ![]() ![]() ![]() ![]() 發表:95 回覆:754 積分:452 註冊:2002-07-23 發送簡訊給我 |
|
wnhoo
高階會員 ![]() ![]() ![]() ![]() 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
要有这个哦-》uses ExtCtrls; procedure TForm1.FormCreate(Sender: TObject); var
mypanel1,mypanel2,mypanel3,mypanel4:tpanel;
h,w:integer;
begin
h:=form1.ClientHeight ;
w:=form1.Clientwidth; mypanel1:=tpanel.Create(form1);
mypanel2:=tpanel.Create(form1);
mypanel3:=tpanel.Create(form1);
mypanel4:=tpanel.Create(form1); mypanel1.Parent :=form1;
mypanel2.Parent :=form1;
mypanel3.Parent :=form1;
mypanel4.Parent :=form1; mypanel1.Height := h div 2;
mypanel1.Width := w div 2;
mypanel2.Height := h div 2;
mypanel2.Width := w div 2;
mypanel3.Height := h div 2;
mypanel3.Width := w div 2;
mypanel4.Height := h div 2;
mypanel4.Width := w div 2; mypanel1.Top :=0;
mypanel1.Left :=0;
mypanel2.Top :=0;
mypanel2.Left :=w div 2;
mypanel3.Top :=h div 2;
mypanel3.Left :=0;
mypanel4.Top :=h div 2;
mypanel4.Left :=w div 2; mypanel1.Caption :='1' ;
mypanel2.Caption :='2' ;
mypanel3.Caption :='3' ;
mypanel4.Caption :='4' ; end ; turboted兄说画线没什么用处,哪就动态创建PANEL控件把!!! 供参考! 风花雪月 e梦情缘
------
风花雪月 e梦情缘 |
Justmade
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
Jasonwong
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:49 回覆:931 積分:581 註冊:2006-10-27 發送簡訊給我 |
|
lcsboy
版主 ![]() ![]() ![]() ![]() ![]() 發表:87 回覆:622 積分:394 註冊:2002-06-18 發送簡訊給我 |
|
qoo1234
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
axsoft
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:681 回覆:1056 積分:969 註冊:2002-03-13 發送簡訊給我 |
引言: 麥個吵阿! 我提供的元件已經可以了!若有更好的,記得跟我說一聲~Qoo1234 RC3(Raize Component 3)的TRzSplitter加上TRzSizePanel更好用喔! Raize Software: http://www.raize.com/DevTools/RzComps/DemoTrial/Default.htm ![]() |
qoo1234
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
|
willykcwen
一般會員 ![]() ![]() 發表:1 回覆:5 積分:1 註冊:2002-10-29 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |