更改TdxAlertWindowManager上的現有消息

我使用這樣一段代碼來顯示使用TdxAlertWindowManager的警報。這給了我一個警報窗口，並在這個窗口中有幾條消息。我想要做的是在第一行文本中顯示一個警報窗口，並在同一個窗口中顯示一個新文本。該程序用於將計算機連接到一些網絡共享，我想消息把看起來像：更改TdxAlertWindowManager上的現有消息

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

等的股份的其餘部分。但我無法弄清楚如何與TdxAlertWindowManager

幾年前做時，我做了我用nxAlert從伯格軟件的程序，但我沒有它提供任何更多。這樣做沒有問題。

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

來源

2012-10-27 OZ8HP

你試圖添加像'字符串 '連接驅動器Y：到\\ server \ foldery' + sLineBreak +「連接驅動器X：到\\ server \ folderx'' ？ – TLama

這並不完全是我想要的我想要在連接模擬某種進度指示器時添加這些行。 – OZ8HP

我不知道如何使TdxAlerWindowManager顯示新的生產線，但我知道如何改變目前的消息。只需編輯MessageList的Items[0]財產。我在計時器中做。

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-27 17:46:34 JustMe

這不僅是正確的 - 它是絕對正確的:-) 謝謝 – OZ8HP

更改TdxAlertWindowManager上的現有消息

回答

相關問題