0

我使用这样的一段代码来显示使用TdxAlertWindowManager. 这给了我一个警报窗口，在这个窗口中有几条消息。我想做的是显示一个带有第一行文本的警报窗口，并且在同一个窗口上我想放置一个新文本。该程序用于将计算机连接到某些网络共享，我想输入的消息如下所示：

Connecting drive y: to \\server\foldery
Connecting drive x: to \\server\folderx

其余股份以此类推。但我不知道该怎么做TdxAlertWindowManager

几年前，当我nxAlert从 Berg 软件中制作我使用的程序时，但我不再提供它了。这样做是没有问题的。

if fAlertWindow = nil then
  dxAlertWindowManager.Show(sHpAlertCaption, AlertText, fIndex).Tag := 1
else
  begin
    fAlertWindow.MessageList.Add(sHpAlertCaption, AlertText, fIndex);
    fAlertWindow.RestartDisplayTimer;
  end;
4

1 回答 1

1

我不知道如何TdxAlerWindowManager显示新行，但我知道如何更改当前消息。只需编辑Items[0]. MessageList我在计时器里做。

var
fAlertWindow: TdxAlertWindow;

procedure TFMain.Timer1Timer(Sender: TObject);
begin
  fAlertWindow := dxAlertWindowManager1.Show('Caption', 'Hello1');
  Timer1.Enabled := False;
end;

procedure TFMain.Timer2Timer(Sender: TObject);
begin
  fAlertWindow.BeginUpdate;
  fAlertWindow.MessageList.Items[0].Text := 'Hello2';
  fAlertWindow.EndUpdate;
  Timer2.Enabled := False;
end;

工作 100%

于 2012-10-27T17:46:34.177 回答