The Dialog values need refreshing ?

[Grovkillen]

Why not use a new window/dialog to show whatever error you want?

[JRL]

These days I rarely use CloseDialog> Most of the time I use the dialog AlphaBlend property instead if I want the dialog "closed".

See the comments.

Code: Select all

Dialog>Dialog1
object Dialog1: TForm
  Caption = 'AlphaBlend Demo'
  ClientHeight = 211
  ClientWidth = 476
  object Edit1: TEdit
    Left = 49
    Top = 23
    Width = 121
    Height = 21
  end
  object MSButton1: tMSButton
    Left = 197
    Top = 154
    Width = 75
    Height = 25
    Caption = 'OK'
  end
end
EndDialog>Dialog1

//Click "OK" button to run demo.
AddDialogHandler>Dialog1,MSButton1,OnClick,srtDisplayMessage
//Set Dialogs alphablend property to true so the dialog can accept
//changes to alphablendvalue property.
SetDialogProperty>Dialog1,,AlphaBlend,True

Show>Dialog1,

SRT>srtDisplayMessage
  //AlphaBlendValue=0 makes the window invisible and untouchable by the mouse and keyboard
  //AlphaBlendValue=1 makes the window invisible yet touchable by the mouse and keyboard
  SetDialogProperty>Dialog1,,AlphaBlendValue,0
  MDL>This is information you want.%crlf%Dialog is unavailable (closed).
  SetDialogProperty>Dialog1,,AlphaBlendValue,255
END>srtDisplayMessage