c2design 7월 26일, 2022에 포스트됨 공유하기 7월 26일, 2022에 포스트됨 TAdvListEditor 는 TMS에서 제공하는 600여개의 VCL UI 컴포넌트가 담긴 번들 팩인 TMS VCL UI Pack 에 들어있습니다. TMS VCL UI Pack의 무료 평가판은 RAD 스튜디오 안에서 겟잇(GetIt) 패키지 매니저를 사용하면 바로 받아서 설치할 수 있습니다 TAdvListEditor 는 게시판이나 SNS 글 등록시 TAG 등을 입력하는 형태와 같은 새로운 개념의 Editor 박스 입니다. 다양한 형태의 사용자 입력편의성이 제공 되며 입력 항목에 숨겨진 Value 값이나 Link URL등을 등록할 수 있습니다. 사용자가 입력한 값은 DEL 키로 삭제되며, 입력값 즉시 수정도 가능합니다. 사용자 입력시 항목 구분은 세미콜론(;) 을 사용합니다. 또한 Read Only 속성으로 지정시 버튼등의 기능 수행도 가능하므로 새롭고 다양한 형태의 UI 를 구성 할 수 있습니다. 입력항목 값에 ImageList를 사용한 아이콘 지정도 가능합니다. // 입력 항목 클릭시 procedure TForm4.AdvListEditor1ValueClick(Sender: TObject; ValueIndex: Integer); begin ShowMessage('Value '+ inttostr(ValueIndex)+' clicked. Display text = '+ AdvListEditor1.Values[ValueIndex].DisplayText); end; // 읽기전용 항목에 지정된 URL 표시 procedure TForm4.AdvListEditor3ValueClick(Sender: TObject; ValueIndex: Integer); begin Label3.Caption := AdvListEditor3.Values[ValueIndex].DisplayText + ' http://' + AdvListEditor3.Values[ValueIndex].Value; end; // DEL 키 항목 삭제 이벤트 procedure TForm4.AdvListEditor3ValueDelete(Sender: TObject; Value: TAdvListValue; var Allow: Boolean); begin Allow := MessageDlg('Delete value?',mtConfirmation,[mbYes,mbNo],0) = mrYes; end; // 입력 전체 항목값 확인 procedure TForm4.Button1Click(Sender: TObject); var i: integer; begin listbox1.Items.Clear; for i := 0 to AdvListEditor1.Values.Count - 1 do begin listbox1.Items.Add(AdvListEditor1.Values[i].DisplayText); end; end; // 입력 항목에 표시될 지정된 숨겨진 값 등록 procedure TForm4.FormCreate(Sender: TObject); begin AdvListEditor2.Lookup.AddPair('Embarcadero','www.embarcadero.com'); AdvListEditor2.Lookup.AddPair('TMS software','www.tmssoftware.com'); AdvListEditor2.Lookup.AddPair('Adobe','www.adobe.com'); AdvListEditor2.Lookup.AddPair('Apple','www.apple.com'); AdvListEditor2.Lookup.AddPair('Microsoft','www.microsoft.com'); AdvListEditor2.Lookup.AddPair('Atozed','www.atozed.com'); AdvListEditor2.Lookup.AddPair('Google','www.google.com'); AdvListEditor2.Lookup.AddPair('Twitter','www.twitter.com'); AdvListEditor2.Lookup.AddPair('Facebook','www.facebook.com'); AdvListEditor2.Lookup.AddPair('Dell','www.dell.com'); AdvListEditor2.Lookup.AddPair('Gnostice','www.gnostice.com'); AdvListEditor2.Lookup.AddPair('RemObjects','www.remobjects.com'); AdvListEditor2.Lookup.AddPair('McAfee','www.mcafee.com'); end; // 입력 첫글자 검색기능 옵션 procedure TForm4.RadioButton2Click(Sender: TObject); begin if RadioButton1.Checked then AdvListEditor2.LookupMethod := lmFromStart else AdvListEditor2.LookupMethod := lmFull; end; 인용하기 이 댓글 링크 다른 사이트에 공유하기 더 많은 공유 선택 사항
Recommended Posts
이 토의에 참여하세요
지금 바로 의견을 남길 수 있습니다. 그리고 나서 가입해도 됩니다. 이미 회원이라면, 지금 로그인하고 본인 계정으로 의견을 남기세요.