請問 2維陣列 表格 (見內容).要使用何元件建立 ??? |
|
尚未結案
|
|
water
初階會員   發表：90 回覆：89 積分：35 註冊：2003-07-07 發送簡訊給我 |
|
|
pedro
尊榮會員 發表：152 回覆：1187 積分：892 註冊：2002-06-12 發送簡訊給我 |
TStringGrid
以下內容您直接在表單上View as Text貼在form ....end之前
再按View as form
就可以看到效果
object StringGrid1: TStringGrid
Left = 88
Top = 24
Width = 329
Height = 193
Color = clSkyBlue
ColCount = 2
DefaultColWidth = 120
DefaultRowHeight = 40
FixedCols = 0
RowCount = 3
FixedRows = 0
GridLineWidth = 3
TabOrder = 0
end
|
|
water
初階會員 發表：90 回覆：89 積分：35 註冊：2003-07-07 發送簡訊給我 |
|
|
pedro
尊榮會員 發表：152 回覆：1187 積分：892 註冊：2002-06-12 發送簡訊給我 |
|
|
water
初階會員 發表：90 回覆：89 積分：35 註冊：2003-07-07 發送簡訊給我 |
|
|
pedro
尊榮會員 發表：152 回覆：1187 積分：892 註冊：2002-06-12 發送簡訊給我 |
TStringGrid無法做到立體表框, 改以TPanel拼湊
以下內容您直接在表單上View as Text貼在form ....end之前
再按View as form
就可以看到效果
可以指定Panel3,Panel4,Panel5....
的Caption
object Panel1: TPanel
Left = 56
Top = 48
Width = 308
Height = 183
Caption = 'Panel1'
TabOrder = 0
object Panel2: TPanel
Left = 1
Top = 1
Width = 153
Height = 181
Align = alLeft
BevelOuter = bvNone
Caption = 'Panel2'
TabOrder = 0
object Panel4: TPanel
Left = 0
Top = 0
Width = 153
Height = 53
Align = alTop
BevelInner = bvLowered
BevelWidth = 2
Caption = 'Panel4'
TabOrder = 0
end
object Panel5: TPanel
Left = 0
Top = 53
Width = 153
Height = 60
Align = alClient
BevelInner = bvLowered
BevelWidth = 2
Caption = 'Panel5'
TabOrder = 1
end
object Panel6: TPanel
Left = 0
Top = 113
Width = 153
Height = 68
Align = alBottom
BevelInner = bvLowered
BevelWidth = 2
Caption = 'Panel6'
TabOrder = 2
end
end
object Panel3: TPanel
Left = 154
Top = 1
Width = 153
Height = 181
Align = alRight
BevelOuter = bvNone
Caption = 'Panel3'
TabOrder = 1
object Panel7: TPanel
Left = 0
Top = 0
Width = 153
Height = 53
Align = alTop
BevelInner = bvLowered
BevelWidth = 2
Caption = 'Panel4'
TabOrder = 0
end
object Panel8: TPanel
Left = 0
Top = 53
Width = 153
Height = 60
Align = alClient
BevelInner = bvLowered
BevelWidth = 2
Caption = 'Panel5'
TabOrder = 1
end
object Panel9: TPanel
Left = 0
Top = 113
Width = 153
Height = 68
Align = alBottom
BevelInner = bvLowered
BevelWidth = 2
Caption = 'Panel6'
TabOrder = 2
end
end
end
|
|
water
初階會員 發表：90 回覆：89 積分：35 註冊：2003-07-07 發送簡訊給我 |
|
|
pedro
尊榮會員 發表：152 回覆：1187 積分：892 註冊：2002-06-12 發送簡訊給我 |
發表時間：2003-08-05 14:41:50
IP:61.230.xxx.xxx 未訂閱
系統時間：2024-05-04 16:53:48
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |