1、在Form的OnCloseQuery事件中写代码: if application.MessageBox('你真的要退出吗?','退出确认',mb_yesnocancel)<>idyes then canclose:=false;2、用一个Label写上链接的文字,然后在其OnClick事件中写如下代码: shellexecute(handle,'','http://www.163.com','','',sw_show); //注意:要在Uses列表中加上 shellapi 单元。3、请参阅: http://www.delphiok.com/bcjq/all/100.htm
询问后不关闭:procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin 这里询问; if 不关闭 then CanClose := False; end;
if application.MessageBox('你真的要退出吗?','退出确认',mb_yesnocancel)<>idyes then
canclose:=false;2、用一个Label写上链接的文字,然后在其OnClick事件中写如下代码:
shellexecute(handle,'','http://www.163.com','','',sw_show);
//注意:要在Uses列表中加上 shellapi 单元。3、请参阅:
http://www.delphiok.com/bcjq/all/100.htm
begin
这里询问;
if 不关闭 then
CanClose := False;
end;
2,你的链接,是啥意思?网页?
3,哪个例子很多,自己找找吧