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

我窗口label的click中打开一个浏览器后用button关闭窗口就报错

缺席
cjjer
一般會員


發表:2
回覆:0
積分:0
註冊:2008-12-07

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-12-13 12:34:52 IP:122.225.xxx.xxx 訂閱
是这样的情况:
我有个Form,里面有个label1,lable1的onclick事件中打开了一个浏览器。还有个button1,其中button1执行的是窗口关闭的事件。

button1的click事件是:
procedure Tform1.Button1Click(Sender: TObject);
begin
form1.Close;
Windows.SetFocus(form1.ParentWindow);
end;
我的窗口关闭的事件是:
procedure Tform1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
问题是:
如果点击label1打开的浏览器没有关闭,点击button1窗口正常关闭。
如果点击label1打开的浏览器已经被关闭,点击button1就会报access violation at。。。字样。但是按页面的右上角的关闭小叉就不会出现问题。

这是一个问题。如有知道的请指点一下。

还有一个问题,我现在用label打开一个类似浏览器的东西,我想把打开的这个东西激活,父窗口都不可选择。用了webBrowser没能实现。用了CreateOleObject('InternetExplorer.Application')也是没能把form的可选去掉。其实就是说能实现打开的这个东西呢呢个执行.ShowModal()就好了,有办法么?
不胜感激解答。谢谢。
系統時間:2024-05-16 10:46:59
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!