자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
C++ Builder 폼에 콤보 박스 200개(item 60개) 실행시 시간 오래 걸림 현상
2020.03.05 20:47
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
안녕하세요
제목 그대로 폼 활성화 이벤트 발생시 콤보박스 200개( 각 Items 60개)를 생성하는데 10초가 걸리네요
기능상 콤보박스 200개는 필수인데 10초나 기다려야하니...
좋은 방법 없을가요??
댓글 2
C++ Builder 폼에 콤보 박스 200개(item 60개) 실행시 시간 오래 걸림 현상
2020.03.05 20:47
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
안녕하세요
제목 그대로 폼 활성화 이벤트 발생시 콤보박스 200개( 각 Items 60개)를 생성하는데 10초가 걸리네요
기능상 콤보박스 200개는 필수인데 10초나 기다려야하니...
좋은 방법 없을가요??
그냥 단순하게 해보니 제PC에서는 0.9초 정도 걸리네요...
procedure TForm1.FormCreate(Sender: TObject);
var
ix, iy :Integer;
xComboBox :TComboBox;
dtStart :TDateTime;
nMilliSec :Int64;
begin
dtStart := now;
for ix := 0 to 199 do
begin
xComboBox := TComboBox.Create(Self);
xComboBox.Parent := Self;
xComboBox.Width := 50;
xComboBox.Left := (ix Mod 10) * 80 ;
xComboBox.Top := (ix div 10) * 30;
xComboBox.Text := IntToStr(ix);
xComboBox.Name := 'Combo_' + IntToStr(ix);
xComboBox.Items.BeginUpdate;
for iy := 0 to 59 do
xComboBox.Items.Add(intToStr(iy));
xComboBox.Items.EndUpdate;
end;
nMilliSec := DateUtils.MilliSecondsBetween(now, dtStart);
Caption := '걸린밀리초 :' + IntToStr(nMilliSec);
end;