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

一個Form上有N個物件,如何得知顯示的順序?

答題得分者是:taishyang
harktrip
一般會員


發表:30
回覆:30
積分:12
註冊:2007-04-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-06-06 16:05:25 IP:61.221.xxx.xxx 訂閱
各位老大請教:
我一個Form上,有10個物件.
但我的程式 已經針對個別的物件操作過很多次的 BringToFront()
問題來了....

現在我的程式要如何得知這10個物件的顯示順序????

懇請各位老大幫忙啦...我真的想不出來了


wameng
版主


發表:31
回覆:1336
積分:1188
註冊:2004-09-16

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-06-06 18:25:00 IP:61.222.xxx.xxx 訂閱
function GetZOrder(AControl: TControl): Integer;
var
I : Integer;
begin
Result := -1;
if (AControl <> nil) and (AControl.Parent <> nil) then
For I :=0 to AControl.Parent.ControlCount - 1 do
if AControl.Parent.Controls[I]=AControl then
begin
Result := I;
Break;
end;
end;

taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-06-06 18:50:58 IP:122.124.xxx.xxx 未訂閱
翻譯成BCB
<textarea class="cpp" rows="10" cols="60" name="code"> int __fastcall TForm1::GetZOrder(TControl* AControl) { int Result = -1; if (AControl && AControl->Parent) { for (int i=0; iParent->ControlCount; i ) { if (AControl->Parent->Controls[i] == AControl) { Result = i; break; } } } return Result; }</textarea>
wameng
版主


發表:31
回覆:1336
積分:1188
註冊:2004-09-16

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-06-06 21:44:18 IP:61.31.xxx.xxx 訂閱
Sorry ! 我搞錯版面。
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-06-06 21:48:45 IP:122.124.xxx.xxx 未訂閱
前輩別這麼說,我可以一道學習^_^
編輯記錄
taishyang 重新編輯於 2007-06-06 21:49:56, 註解 無‧
harktrip
一般會員


發表:30
回覆:30
積分:12
註冊:2007-04-11

發送簡訊給我
#6 引用回覆 回覆 發表時間:2007-06-07 09:06:23 IP:61.221.xxx.xxx 訂閱
兩位老大感恩啦...
終於搞定
系統時間:2024-05-06 13:26:48
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!