全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1214
推到 Plurk!
推到 Facebook!

如何知道Panel上面物件的信息?

尚未結案
railgunman
初階會員


發表:59
回覆:121
積分:36
註冊:2003-03-31

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-06-02 17:42:25 IP:211.98.xxx.xxx 未訂閱
一个Panel上面有多个align都为alClient的物件,并且这些物件的parent都是Panel,如何知道Panel当前最上面的物件的信息,比如Name之类的。
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-06-02 18:59:10 IP:211.20.xxx.xxx 未訂閱
railgunman 你好
  使用以下程式可取得Panel1中的最上層控制項的Name屬性
  ShowMessage(Panel1.Controls[panel1.ControlCount-1].Name);
railgunman
初階會員


發表:59
回覆:121
積分:36
註冊:2003-03-31

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-06-02 20:44:16 IP:211.98.xxx.xxx 未訂閱
谢谢,但是看了你的代码,我还是不明白其中的道理? 能否具体讲一下吗?
railgunman
初階會員


發表:59
回覆:121
積分:36
註冊:2003-03-31

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-06-02 20:45:31 IP:211.98.xxx.xxx 未訂閱
谢谢,但是看了你的代码,我还是不明白其中的道理? 能否具体讲一下吗? 若panel上的物件是一个Form,能否让该Form自动滚动?
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-06-02 21:53:39 IP:211.20.xxx.xxx 未訂閱
railgunman 你好    如果你在panel中放三個控制項,那麼Panel1.ControlCount=3,而Panel1.Controls[0]即是第一個物件也是最下層的物件,Panel1.Controls[2]就9是第三個物件,且是最上層的物件,至於panel上的某個物件你可以用 If panel.Controls[2] IS TForm Then 來偵測,然後予以轉型為TForm後就可存取到TForm的相關屬性了
If panel.Controls[2] IS TForm Then
  TForm(panel.Controls[2]).AutoScroll := true;
重點是, 1.逐個物件判斷是否為TForm物件 2.將該物件轉型為TForm後,存取TForm的屬性、方法、及事件 3.某些物件為容器物件(如TForm、TPanel...)其中還包含有其他的控制項,有必要時你必須再深入搜尋判斷才可。
Chance36
版主


發表:31
回覆:1033
積分:792
註冊:2002-12-31

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-06-02 21:57:34 IP:211.20.xxx.xxx 未訂閱
引言: 若panel上的物件是一个Form,能否让该Form自动滚动?
TPanel恐怕不行,如果希望讓Panel中的物件可以捲動,你可以改用TScrollBox,把放在Panel上的物件,改放到ScrollBox中,就可以了。
系統時間:2024-05-04 5:26:17
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!