是否有將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等。
下圖是示範：不只可以左右調整，還可以做同步調整區塊大小。
 發表是最好的記憶! 發表人 - qoo1234 於 2003/05/22 10:51:43
|
|
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 發送簡訊給我 |
發表時間：2003-04-28 15:34:54
IP:192.146.xxx.xxx 未訂閱
系統時間：2024-05-04 22:53:02
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |