c2design 7월 27일, 2022에 포스트됨 공유하기 7월 27일, 2022에 포스트됨 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: ' + inttostr(products_count)+'<br>'; NewMsg := NewMsg + 'Account: �' + 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; 인용하기 이 댓글 링크 다른 사이트에 공유하기 더 많은 공유 선택 사항
Recommended Posts
이 토의에 참여하세요
지금 바로 의견을 남길 수 있습니다. 그리고 나서 가입해도 됩니다. 이미 회원이라면, 지금 로그인하고 본인 계정으로 의견을 남기세요.