DBGRid欄位驗證,使用Validate,整列的資料都會變? |
答題得分者是:leveon
|
aftcast
站務副站長 發表:81 回覆:1485 積分:1763 註冊:2002-11-21 發送簡訊給我 |
寫法怪怪的,感覺free了二次。 我想,你「瞭解」這button click應該是叫close這個方法吧? 這樣做不太"正統",應該只要在click事件上寫 try F_CTL_MESSAGE.ShowModal; finally F_CTL_MESSAGE.FREE; RESULT:=MSG_AA; END; 先改一下,但我不確定這裡修正了後,病就除了。但至少正確的寫法要有! 如果levon大他有時間,他來幫你解接下來的應該很容易,他delphi極熟吧…哈哈。若這編文搞定後,無論如何把分數給他喔!
------
蕭沖 --All ideas are worthless unless implemented-- C++ Builder Delphi Taiwan G+ 社群 http://bit.ly/cbtaiwan |
chris681016
中階會員 發表:69 回覆:122 積分:98 註冊:2006-10-12 發送簡訊給我 |
ModalResult := mrOK; //mrXX都可以,隨你愛選, 因為你的程式沒用到這個判斷
這一行就可以讓modal form自己"關起來"(正確講是hide起來) 所以,不要在form close事件上寫任何程式,也就是說不要使用close事件! 此外建議: function MSG_RTN(AA1,BB1 : ARRAY OF STRING):INTEGER ; BEGIN Application.CreateForm(TF_CTL_MESSAGE, F_CTL_MESSAGE); finally F_CTL_MESSAGE.FREE; RESULT:=MSG_AA; END; 先改一下,但我不確定這裡修正了後,病就除了。但至少正確的寫法要有! 如果levon大他有時間,他來幫你解接下來的應該很容易,他delphi極熟吧…哈哈。若這編文搞定後,無論如何把分數給他喔! |
leveon
資深會員 發表:30 回覆:389 積分:303 註冊:2012-02-12 發送簡訊給我 |
Postmessage因為非同步 沒停下來 觸發兩次MSG_RTN 所以會 Cannot make a visible window modal 在CreateForm 前 先檢查一下有沒有開過 可能可以 試試看囉 function MSG_RTN(AA1,BB1 : ARRAY OF STRING):INTEGER ; begin ModalResult := mrOK; //mrXX都可以,隨你愛選, 因為你的程式沒用到這個判斷
這一行就可以讓modal form自己"關起來"(正確講是hide起來) 所以,不要在form close事件上寫任何程式,也就是說不要使用close事件! 此外建議: function MSG_RTN(AA1,BB1 : ARRAY OF STRING):INTEGER ; BEGIN Application.CreateForm(TF_CTL_MESSAGE, F_CTL_MESSAGE); finally F_CTL_MESSAGE.FREE; RESULT:=MSG_AA; END; 先改一下,但我不確定這裡修正了後,病就除了。但至少正確的寫法要有! 如果levon大他有時間,他來幫你解接下來的應該很容易,他delphi極熟吧…哈哈。若這編文搞定後,無論如何把分數給他喔! |
chris681016
中階會員 發表:69 回覆:122 積分:98 註冊:2006-10-12 發送簡訊給我 |
又是亂湊的,不過也多虧leveon大大的提示,還有各位回應的大大們,結案了^___________^,希望不要發生另外問題...........
if Assigned(F_CTL_MESSAGE) then BEGIN Application.CreateForm(TF_CTL_MESSAGE, F_CTL_MESSAGE); F_CTL_MESSAGE.ShowModal; RESULT:=MSG_AA; END ELSE BEGIN Application.CreateForm(TF_CTL_MESSAGE, F_CTL_MESSAGE); F_CTL_MESSAGE.ShowModal; F_CTL_MESSAGE.FREE; RESULT:=MSG_AA; END;
|
leveon
資深會員 發表:30 回覆:389 積分:303 註冊:2012-02-12 發送簡訊給我 |
終於搞定了~ 恭喜~~
不過照這樣發展下去 日後接手程式的人一定會很頭大 ===================引 用 chris681016 文 章=================== 又是亂湊的,不過也多虧leveon大大的提示,還有各位回應的大大們,結案了^___________^,希望不要發生另外問題........... if Assigned(F_CTL_MESSAGE) then BEGIN Application.CreateForm(TF_CTL_MESSAGE, F_CTL_MESSAGE); F_CTL_MESSAGE.ShowModal; RESULT:=MSG_AA; END ELSE BEGIN Application.CreateForm(TF_CTL_MESSAGE, F_CTL_MESSAGE); F_CTL_MESSAGE.ShowModal; F_CTL_MESSAGE.FREE; RESULT:=MSG_AA; END;
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |