//Next控件 自带的弹窗控件TNxAlertWindow,弹窗测试
nxlrtwndw1: TNxAlertWindow ;//TNxAlertWindow = class(TCustomControl)
procedure TForm9.btn2Click(Sender: TObject);
begin
//nxlrtwndw1.Caption:='1313221321';
//nxlrtwndw1.Text :='7497465465';
// nxlrtwndw1.Width:=500;
//nxlrtwndw1.Height :=500;
//nxlrtwndw1.Show;
nxlrtwndw1.Popup;
end;
//SmallGlyph.NormalGlyph 放标题的图标
//以下窗体文件
object nxlrtwndw1: TNxAlertWindow
Left = 808
Top = 297
Width = 306
Height = 113
BackgroundStyle = btSolid
CloseDelay = -1
CloseGlyph.NormalGlyph.Data = {
F6000000424DF600000000000000360000002800000008000000080000000100
180000000000C000000000000000000000000000000000000000D2CFCAD2CECA
00FF0000FF0000FF0000FF00D3D0CDD3D0CCD2CFCAD3CFC9D2CEC800FF0000FF
00D3D0CCD3D0CCD3D0CC00FF00D3CFCAD3CFCAD3CEC9D3CEC8D3CFCBD3D0CC00
FF0000FF0000FF00D3CFC9D3CEC9D3CEC8D3CEC700FF0000FF0000FF0000FF00
D3CEC9D3CEC8D3CEC8D3CEC800FF0000FF0000FF00D3CFC9D3CFC8D3CFC8D3CE
C8D3CEC9D3CEC800FF00D3CEC8D3CEC8D3CEC800FF0000FF00D3CEC8D3CEC7D2
CDC6D3CEC8D3CEC800FF0000FF0000FF0000FF00D3CEC7D3CDC6}
CloseGlyph.Transparent = True
CloseGlyph.TransparentColor = clLime
CloseGlyph.HoverGlyph.Data = {
F6000000424DF600000000000000360000002800000008000000080000000100
180000000000C000000000000000000000000000000000000000E08800E08800
00FF0000FF0000FF0000FF00E08800E08800E08800E08800E0880000FF0000FF
00E08800E08800E0880000FF00E08800E08800E08800E08800E08800E0880000
FF0000FF0000FF00E08800E08800E08800E0880000FF0000FF0000FF0000FF00
E08800E08800E08800E0880000FF0000FF0000FF00E08800E08800E08800E088
00E08800E0880000FF00E08800E08800E0880000FF0000FF00E08800E08800E0
8800E08800E0880000FF0000FF0000FF0000FF00E08800E08800}
Color = clHighlight
ForegroundColor = clSkyBlue
HeaderFont.Charset = DEFAULT_CHARSET
HeaderFont.Color = clWindowText
HeaderFont.Height = -11
HeaderFont.Name = 'Tahoma'
HeaderFont.Style = []
WordWrap = True
end