Jump to content
과거의 기술자료(읽기 전용): https://tech.devgear.co.kr ×
과거의 기술자료(읽기 전용): https://tech.devgear.co.kr

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


Recommended Posts

image.png

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;

 

 

이 댓글 링크
다른 사이트에 공유하기

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

이 토의에 참여하세요

지금 바로 의견을 남길 수 있습니다. 그리고 나서 가입해도 됩니다. 이미 회원이라면, 지금 로그인하고 본인 계정으로 의견을 남기세요.

Guest
이 토픽(기고/질문)에 답하기

×   서식있는 텍스트로 붙여넣기.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   이전에 작성한 콘텐츠가 복원되었습니다..   편집창 비우기

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

중요한 정보

이용약관 개인정보보호정책 이용규칙 이 사이트가 더 잘 작동하기 위해 방문자의 컴퓨터에 쿠키가 배치됩니다. 쿠키 설정 변경에서 원하는 설정을 할 수 있습니다. 변경하지 않으면 쿠키를 허용하는 것으로 이해합니다.