焦点[Focus]问题-(2)! |
尚未結案
|
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
|
eric039
中階會員 發表:57 回覆:126 積分:51 註冊:2002-11-30 發送簡訊給我 |
1的部分我是這樣做的
var
Comp : Tcomponent;
i: integer;
begin
for i := 0 To ComponentCount -1 do
begin
comp := Components[i];
if comp is Tedit then
if Tedit(Comp).Focused then
break;
如果有不同元件在這邊加判斷式
......
......
......
...... end;
這邊得到的 Comp 就是目前 Focused 的元件
....
end; 如果有更好的方法請多多指教 2跟3看不太懂 Eric Lin
------
Eric Lin |
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
|
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
|
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
Justmade 兄:
我就在你的例子程序中,加入如下创建的控件: procedure TForm1.Button2Click(Sender: TObject);
VAR
MYLABEL:TLABEL;
begin
MYLABEL:=TLABEL.Create(FORM1);
MYLABEL.Top :=210;
MYLABEL.Left:=170;
MYLABEL.Font.Color:=188;
MYLABEL.Caption:='THANK YOU!';
MYLABEL.Parent :=FORM1;
end; 风花雪月 e梦情缘
------
风花雪月 e梦情缘 |
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
我在
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30231
經說清楚了 :
引言: 注意,一定要是 WinControl 的子代才可以,因為 WinContorl 的子代才有 Handle,所以你可看見是不會顯示 label 的資料的。若你想連 Lable 的資料也顯示,改用 Static Text 即可。 若你一定要用非 WinControl 視覺元件而又想作這個功能,便只好在 Control List 逐個元件去對照了。所以 TLabel 不能被偵察到,是因為沒有 Handle 而不是動態連結 你可以用 Static Text 來代替便可偵察到的了。 |
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |