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

如何在Form的OnShow或OnCreate中终止From显示

尚未結案
fangwy
中階會員


發表:99
回覆:139
積分:62
註冊:2003-09-10

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-09-17 17:44:59 IP:218.5.xxx.xxx 未訂閱
通常需要在Form的OnShow或OnCreate中进行一些初始化或检查,如果不满足执行条件需要终止From的显示.但在OnShow,OnCreate中做Close,却没有关闭From,放在OnShow中执行Close提示'cannot change visible in OnShow or OnHide' 如果用Application.Terminate会终止Application,我只希望终止当前这个From,不希望整个Application终止. 哪个高手有好的方法请教教我,谢谢.
aquarius
資深會員


發表:3
回覆:347
積分:330
註冊:2003-05-21

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-09-17 18:01:27 IP:211.23.xxx.xxx 未訂閱
在 OnPaint 中可以, 或是 OnCreate / OnShow 中判斷到要結束 FORM, 就 PostMessage 給 Self . PostMessage(self.handle,WM_CLOSE,0,0) ; 發表人 - aquarius 於 2003/09/17 18:05:44
------
水瓶男的blog: http://791909.blogspot.com
huangeider
高階會員


發表:288
回覆:492
積分:231
註冊:2003-02-26

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-09-17 18:21:50 IP:61.231.xxx.xxx 未訂閱
引言: 通常需要在Form的OnShow或OnCreate中进行一些初始化或检查,如果不满足执行条件需要终止From的显示.但在OnShow,OnCreate中做Close,却没有关闭From,放在OnShow中执行Close提示'cannot change visible in OnShow or OnHide' 如果用Application.Terminate会终止Application,我只希望终止当前这个From,不希望整个Application终止. 哪个高手有好的方法请教教我,谢谢. 在通往建form的tbutton或其它元件上 做判定?在滿足條件後才能執行建立 form的程式否則就不執行建立form的程式
procedure Tform1.button1Click(Sender: TObject);
begin
if x=1 then
begin
try
  form1:=tform1.create(application);
  form1.showmodal;
finally
  form1.free;
  end;
end;
以上小弟淺見
「堅持」從洗馬桶做起 Aric 發表人 - huangeider 於 2003/09/17 18:25:49
系統時間:2024-05-03 20:03:52
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!