|

楼主 |
发表于 2011-3-24 01:07:47
|
显示全部楼层
procedure TFormLogin.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
if MessageDlg('鎻愮ず', '纭畾閫嚭鍚', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
halt;
CanClose := False;
end;
有几个字符复制不了

超级头疼,从0.9.28.2到0.9.31 都有这问题
上面是个很简单的语句 窗口关闭事件 弹出个 确认窗口 确认,下午看起来是这样
procedure TFormLogin.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
if MessageDlg('提示', '确认退出程序?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
halt;
CanClose := False;
end;
几个版本都默认安装,没做任何调整,除了安装了个zeos7.0外 |
|