delphi - JEDI可视化组件库: JvAlarms component (a few questions)

Question

我决定尝试 JvAlarms 组件。所以我这样做了:

procedure TForm1.Button1Click(Sender_TObject);
begin
jvAlarms1.Add.Name :=Edit1.Text;
jvAlarms1.Add.Time := dxDateTimeWheelPicker1.DateTime;
label1.caption:=datetimetostr(dxDateTimeWheelPicker1.DateTime);
jvAlarms1.Active:=True;
end;

现在，奇怪的部分是，当我设置闹钟并运行应用程序时，我立即收到一个带有闹钟消息的弹出窗口。这是设计使然吗？关闭此消息后，应用程序稍后将触发我按时设置的闹钟。我只是想知道这个立即弹出窗口是否是默认设置，或者您可以将其关闭以及如何关闭。如果不能，是否可以对其进行修改，以便您至少可以对用户说一些内容，例如“您已设置警报:警报名称，要触发:警报时间”。

第二个问题关于警报消息。报警发生时如何获取报警消息名称？

我尝试过:

ShowMessage('Alarm:'+ jvAlarms1.Name);

但似乎不起作用。我可以通过以下方式得到它:

ShowMessage('Alarm:'+jvAlarms1.Items[0].Name;

但我不知道添加的警报的索引!？所以我不能用它。有什么方法可以检索我的代码添加的警报列表吗？

第三个问题关于警报存储。您是从 *.ini 加载它们还是可以使用数据库？我在任何地方都找不到此类用法的示例(此处搜索结果变为“0”)，因此如果有人可以指出我正确的方向。

Answer 1

您添加了两个闹钟，因为您调用了两次Add。改为调用一次:

var
  Item: TJvAlarmItem;
.... 
Item := jvAlarms1.Add;
Item.Name :=Edit1.Text;
Item.Time := dxDateTimeWheelPicker1.DateTime;

当警报触发时，组件的 OnAlarm 事件会收到对所触发的特定警报的引用。您可以从该引用文献中读取该名称。

这完全取决于您在应用程序中存储警报的位置。