当前位置：首页 > news >正文

delphi intraweb 警告框

news 来源：原创 2025/5/19 8:15:10

运行后将显示8种不同颜色的警报框，从上到下依次为：

蓝色 (primary)

灰色 (secondary)

绿色 (success)

红色 (danger)

黄色 (warning)

浅蓝 (info)

浅灰 (light)

深灰 (dark)

unit Unit1;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompLabel,
  Vcl.Controls, Vcl.Forms, IWVCLBaseContainer, IWContainer, IWHTMLContainer,
  IWHTML40Container, IWRegion, IWBS4CustomRegion, IWBS4Region;

type
  TIWForm1 = class(TIWAppForm)
    IWBS4Region1: TIWBS4Region;
    IWLabel1: TIWLabel;
    IWLabel2: TIWLabel;
    IWLabel3: TIWLabel;
    IWLabel4: TIWLabel;
    IWLabel5: TIWLabel;
    IWLabel6: TIWLabel;
    IWLabel7: TIWLabel;
    IWLabel8: TIWLabel; // 警报8
    procedure IWAppFormCreate(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}

procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
  // 1. 响应式布局设置
  PageContext.ExtraHeader.Add
    ('<meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no">');

  // 2.在ServerController里添加全局CSS HTMLHeaders.Add('<link rel="stylesheet" href="/css/bootstrap.min.css">');

  // 3. 容器设置
  IWBS4Region1.Css := 'container mt-3';

  // 4. 设置所有警报
  IWLabel1.RawText := True;
  IWLabel1.Text :=
    '<div class="alert alert-primary mt-2" role="alert">主要警报示例</div>';

  IWLabel2.RawText := True;
  IWLabel2.Text :=
    '<div class="alert alert-secondary mt-2" role="alert">次要警报示例</div>';

  IWLabel3.RawText := True;
  IWLabel3.Text :=
    '<div class="alert alert-success mt-2" role="alert">成功警报示例</div>';

  IWLabel4.RawText := True;
  IWLabel4.Text :=
    '<div class="alert alert-danger mt-2" role="alert">危险警报示例</div>';

  IWLabel5.RawText := True;
  IWLabel5.Text :=
    '<div class="alert alert-warning mt-2" role="alert">警告警报示例</div>';

  IWLabel6.RawText := True;
  IWLabel6.Text :=
    '<div class="alert alert-info mt-2" role="alert">信息警报示例</div>';

  IWLabel7.RawText := True;
  IWLabel7.Text :=
    '<div class="alert alert-light mt-2" role="alert">浅色警报示例</div>';

  IWLabel8.RawText := True;
  IWLabel8.Text :=
    '<div class="alert alert-dark mt-2" role="alert">深色警报示例</div>';
end;

initialization

TIWForm1.SetAsMainForm;

end.