tms TMS VCL TAdvAlertWindows 기능소개 (윈도우10,11 타입의 현대화 된 메시지박스 사용)

[c2design]

TAdvAlertWindow 는 TMS에서 제공하는 600여개의 VCL UI 컴포넌트가 담긴 번들 팩인 TMS VCL UI Pack 에 들어있습니다. TMS VCL UI Pack의 무료 평가판은 RAD 스튜디오 안에서 겟잇(GetIt) 패키지 매니저를 사용하면 바로 받아서 설치할 수 있습니다

TAdvAlertWindow 컴포넌트는 HTML 문서를 PopUp 메시지 박스로 사용 할 수 있습니다.

메시지 박스의 위치는 화면 좌우상하단 및 센터에 모두 나타낼 수 있어 용도에 맞게 활용 할 수 있습니다.

여러개의 메시지 박스를 순차적으로 페이지 넘김 방식으로 전환이 가능하고 런타임 상태에서도 페이지를 추가 할 수 있습니다.

TImageList에 등록된 이미지를 사용하여 좀더 보기 좋은 디자인의 메시지 박스를 표현 할 수 있습니다.

// 추가 메시지 입력 내용 ------------------------------------------
procedure TForm1.AddMessage;
var
  NewMsg: string;
  orders_id, products_count: integer;
  date_purchased: tdatetime;
  orders_total: double;
begin
  orders_id := random(100);
  products_count := random(9);
  orders_total := random(10000);
  date_purchased := now + random(10);

  NewMsg := '<FONT face="Roboto" size="16">Order-Nr.: <b>'+inttostr(orders_id)+'</b></FONT><br>';
  NewMsg := NewMsg + '<FONT face="Roboto" size="10" color="#606368">Date: '+DateTimeToStr(date_purchased)+'<br><hr>';


  NewMsg := NewMsg + 'Product:&nbsp;' + inttostr(products_count)+'<br>';
  NewMsg := NewMsg + 'Account:&nbsp;�' + FormatFloat('00.00',orders_total)+'<\FONT>';

  AdvAlertWindow1.AlertMessages.Add.Text.Text := NewMsg;
end;

procedure TForm1.AdvAlertWindow1AnchorClick(Sender: TObject; Anchor: string;
  Item: TMsgCollectionItem);
begin
  ShellExecute(handle, 'open', pchar(Anchor), nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  AdvAlertWindow1.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  AdvAlertWindow1.Hide;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  AddMessage;
  AdvAlertWindow1.Show;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   AddMessage;
   AdvAlertWindow1.Show;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
    timer1.Enabled := checkbox1.Checked;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
  AdvAlertWindow1.AutoSize := CheckBox2.Checked;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AddMessage;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Timer1.Enabled := false;
  Hide;
end;


procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  AdvAlertWindow1.WindowPosition := TWindowPosition( ComboBox1.ItemIndex );   // 0~5
end;