DELPHI基础教程：Delphi应用程序的应用（二）[2]

dwData参数的含义依赖于fuCommand的设置 如果fuCommand为HELP_CONTEXT dwData为一个 位的无符号整数 它包含一个描述表标识号 如果 fuCommand 为 HELP_KEY dwData 则为一个指定长指针 所指的字符串是帮助的关键字 如果 fuCommand 为HELPMULLTIKEY dwData则指向一个MULTIKEYHELP数据结构的长指针

下面的例子使用了窗体中的按钮 当用户单击按钮帮助系统将显示指定文件的帮助内容主题

procedure TForm Bin Click（Sender : TObject）

begin

Application HelpFile := MyHlep HLP

Application HelpCommand（HELP_CONTENTS ）

end;

TApplication部件的OnHelp事件响应帮助事件 当应用程序接收到一个所需的帮助

时 发生OnHelp事件 使用OnHelp事件可以在需要帮助时定义一些特殊过程 以下的例子改变了应用程序的帮助文件 AppHelp函数用来处理OnCreate事件

function TForm AppHelp（Command Word;Data : lontint） : Boolean

begin

if OpenDialog Exeeute then

Application HelpFile := OpenDialog FileName;

end;

通用对话框中使用帮助系统

Delphi通用对话框中都能显示一个帮助按钮 如果程序显示了对话框中的帮助按钮 应该确保应用程序的帮助文件中有相应的主题

在通用对话框中使用帮助系统 要做到以下三点

把对话框的Option|SHOWHelp属性设置成true 这样在程序运行时将出现帮助按钮 ShowHelp 属性与其部件的名字相关 例如字体对话框的 ShowHelp 属性称为fdShowHelp

为对话框部件定义帮助文件

定义应用程序的文件名

Delphi帮助提示（Hint）的应用

使用Delphi集成开发环境时 用户常把鼠标置于程序部件上 如加速按钮 对齐按钮等 鼠标在部件上停留超过一定时间后 Delphi将会显示一个d出窗口 里面有部件名称和概述

这就是Delphi的帮助提示 Delphi的应用程序可通过定义ShowHint 属性实现帮助提示

帮助提示的显示

ShowHint属性可应用于所有的控件和应用程序部件 控件的ShowHint 属性含义与程序的稍有不同 控件的ShowHint属性决定某一控件是否显示帮助提示 如果ShowHint 是真值 当用户把鼠标置于控件之上超过一定时间后 控件将出现帮助提示 如果是假值 则不出现提示 控件是否显示还决定于控件的ParentShowHind属性 如果 ParentShowHint是真值 控件的父类的ShowHint属性将决定控件是否显示帮助提示 假如有一个分组框和一个检查框 分组框是检查框的父件 表 说明了子件与父件的 ShowHint ParentShowHint属性设置对子件帮助提示的影响

表 Hint属性设置对帮助提示的影响

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

分组框ShowHint 检查框ParentShowHint 检查框ShowHint 帮助提示

─────────────────────────────────────

T或F F T 显示

T T F 显示

F T T 不显示

T或F F F 不显示

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

T表示真值 F表示假值

lishixinzhi/Article/program/Delphi/201311/25195

改一下,就行了

if MessageDlg('还有未保存文件，是否关闭？',mtWarning,[mbYes,mbNo],0)=6 idyes then

CanClose:=true

else

CanClose:=false;

Query *** 作提示“数据提供程序或其他服务返回 E_FAIL 状态。”

-- 查询被锁表

select   request_session_id   spid,OBJECT_NAME(resource_associated_entity_id) tableName

from   sysdm_tran_locks where resource_type='OBJECT'

-- 按查询的request_session_id解锁表

declare @spid int

Set @spid = 75      --锁表会话id，有时多个表被一个会话锁了

declare @sql varchar(1000)

set @sql='kill '+cast(@spid as varchar)

exec(@sql)

以上就是关于DELPHI基础教程：Delphi应用程序的应用（二）[2]全部的内容，包括:DELPHI基础教程：Delphi应用程序的应用（二）[2]、delphi里我想做一个推出关闭时的提示程序，麻烦各位帮忙解决下、Delphi 数据提供程序或其他服务返回 E_FAIL 状态等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！