DELPHI裡有偵測FORM是否存在的方法ㄇ |
|
答題得分者是：Jasonwong
|
|
terrychen
尊榮會員   發表：90 回覆：794 積分：501 註冊：2003-05-01 發送簡訊給我 |
|
|
cashxin2002
版主  發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
您好﹗ 以下判斷是針對Form為Available形態作判斷﹒
begin
if Form2 <> Nil then
ShowMessage('Form2已經存在')
else
ShowMessage('Form2不存在');
//Form2 := TForm2.Create(Self);這一句可以建立一個Form2
//Form2.Show;這一句可將上句建立的Form2.Show出來
end; 如果Form是AutoCreate的形態﹐那就不會不存在﹐即使Form是處于關閉的狀態﹒ 參考看看﹗ =====================
努力,相信會獲得美麗!
忻晟 發表人 - cashxin2002 於 2003/09/15 15:02:44
------
忻晟 |
|
Jasonwong
版主 發表：49 回覆：931 積分：581 註冊：2006-10-27 發送簡訊給我 |
經我測試最好也最全安的方法是...
function FormExists(FormName: String): Boolean;
var
I: Integer;
begin
Result:= False;
for I := 0 to Screen.FormCount-1 do
begin
if Screen.Forms[I].Name = FormName then
Result:= True;
end;
end;
--
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心
------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心 |
|
terrychen
尊榮會員 發表：90 回覆：794 積分：501 註冊：2003-05-01 發送簡訊給我 |
發表時間：2003-09-15 14:40:24
IP:61.221.xxx.xxx 未訂閱
系統時間：2024-04-29 16:46:31
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |