var frm1:TForm1;
begin
 try
   frm1:=TForm1.create(self);
   frm1.ShowModal;
finally
   frm:=nil; ?//frm1中执行abort后直接进入这里了。很不解
   frm.free;
end;
end            

var frm1:TForm1;
begin
 try
   frm1:=TForm1.create(self);
   frm1.ShowModal;
finally
   frm1:=nil; ?//frm1中執行abort後直接進入這裏了。很不解
   frm1.free;
end;
end            

引言: 你好： 程式沒錯呀, Try .. finally 是址不管任何狀況一定要去完成 finally 內的程式。 而 Try except 則是發生 raise 時才會執行 except 內的程式。 < src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">

我是希望frm1在執行到button1.click事件中的Abort時，停留在frm1不要退出，我並沒有用frm1.close之類的退出語句啊，為什麼它會自己退出呢？奇怪啊！

引言: 您好, 你要在frm1裡,把會錯誤的地方的程式用try-except-end包住才不會讓frm1結束,否則,當frm1.ShowModal時,一出錯,本來就會跳到finally後面的.你可以把你frm1裡的程式碼post上來,也許你可以比較快找到答案

procedure TForm28.BitBtn2Click(Sender: TObject);
begin
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Add('select * from V操作員 where 操作員=''' oper '''') ;
 ADOQuery1.Open;
 if password<>Edit4.Text then begin
   MessageDlg('您的舊密碼輸入不正確，請重新輸入！',mtInformation,[mbOK],0);
   Edit4.SetFocus;
   Abort;
 end;
end;

    我猜可能是你的程式碼還沒執行 Abort 前已經發生了 Raise 所以就離開
了 Form 回到了 Try .. Finally 去。你有見到 MessageDlg 的訊息視窗
嗎? 如果沒有那就是我說的事情發生了。否則的話就是 "見鬼第四集" 囉    >    < src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">
        

引言: 我抓到那個小鬼了！是BitBtn的modalResult在作怪。它可以自動幫我們關閉modal的表單。設其為mrNone就OK了。很不好意思，把大家引錯方向了。 一個疑惑：這個>< face="Verdana, Arial, Helvetica"> 如果bitbtn僅設ModuleResult,但沒有指定他的OnClick程序的話,ModuleResult是不會被觸發的,換言之,Form就不會被設ModuleResult.(我不知道您的bitbtn有沒有寫OnClick程序)

引言:

引言: 我抓到那個小鬼了！是BitBtn的modalResult在作怪。它可以自動幫我們關閉modal的表單。設其為mrNone就OK了。很不好意思，把大家引錯方向了。 一個疑惑：這個>< face="Verdana, Arial, Helvetica"> 如果bitbtn僅設ModuleResult,但沒有指定他的OnClick程序的話,ModuleResult是不會被觸發的,換言之,Form就不會被設ModuleResult.(我不知道您的bitbtn有沒有寫OnClick程序)

呵呵，當然有寫，就是前面post上來的關於修改密碼的程式啊。而且觸發事件只有click.

引言:

引言:

引言: 我抓到那個小鬼了！是BitBtn的modalResult在作怪。它可以自動幫我們關閉modal的表單。設其為mrNone就OK了。很不好意思，把大家引錯方向了。 一個疑惑：這個>< face="Verdana, Arial, Helvetica"> 如果bitbtn僅設ModuleResult,但沒有指定他的OnClick程序的話,ModuleResult是不會被觸發的,換言之,Form就不會被設ModuleResult.(我不知道您的bitbtn有沒有寫OnClick程序)

呵呵，當然有寫，就是前面post上來的關於修改密碼的程式啊。而且觸發事件只有click. < face="Verdana, Arial, Helvetica"> 這樣就要以你的程式來查一查才會知道了,不理,依照onLine help的說明,設定 ModuleResult本來就是用來關掉一個form用(限於用ShowModal)用的.而bitbtn等元件,在你按下click時,他會先檢查該元件有的ModuleResult是否有設值(mrNone不算),若有的話,就會把值設給form的ModuleResult了.我所能找到的就這麼多,其他的我想應該還是要看你的程式碼,也許有可能會找到答案.

引言:

引言:

引言:

引言: 我抓到那個小鬼了！是BitBtn的modalResult在作怪。它可以自動幫我們關閉modal的表單。設其為mrNone就OK了。很不好意思，把大家引錯方向了。 一個疑惑：這個>< face="Verdana, Arial, Helvetica"> 如果bitbtn僅設ModuleResult,但沒有指定他的OnClick程序的話,ModuleResult是不會被觸發的,換言之,Form就不會被設ModuleResult.(我不知道您的bitbtn有沒有寫OnClick程序)

呵呵，當然有寫，就是前面post上來的關於修改密碼的程式啊。而且觸發事件只有click. < face="Verdana, Arial, Helvetica"> 這樣就要以你的程式來查一查才會知道了,不理,依照onLine help的說明,設定 ModuleResult本來就是用來關掉一個form用(限於用ShowModal)用的.而bitbtn等元件,在你按下click時,他會先檢查該元件有的ModuleResult是否有設值(mrNone不算),若有的話,就會把值設給form的ModuleResult了.我所能找到的就這麼多,其他的我想應該還是要看你的程式碼,也許有可能會找到答案. < face="Verdana, Arial, Helvetica"> 呵呵，我得到的結果跟您一樣。謝謝您的勤力。