SetFocus Problem |
尚未結案
|
GDMichael
一般會員 發表:27 回覆:36 積分:12 註冊:2004-10-13 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
GDMichael
一般會員 發表:27 回覆:36 積分:12 註冊:2004-10-13 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
看這樣行不行(假設有兩層 TPageControl 的話):
var pg1, pg2: TPageControl; tab1, tab2: TTabSheet; begin // 假設要 SetFocus 的元件是 Edit1 if not (Edit1.Parent is TForm) then // 若 Edit1 不是在 TForm 上 begin tab1 := TTabSheet(Edit1.Parent); // Edit1 是在哪個 TabSheet 上 pg1 := TPageControl(tab.Parent); // 這個 TTabSheet 是在哪個 TPageControl 上 if pg1.Parent is TTabSheet // 這個 TPageControl 是在一個 TTabSheet 上 begin tab2 := TTabSheet(pg1.Parent); // 找到最下層的 TTabSheet pg2 := TPageControl(tab2.Parent); pg2.ActivePage := tab2; end; pg1.ActivePage := tab1; end; Edit1.SetFocus; end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |