Q&A
- 스트링그리드의 콤보박스 리스트에 items.add 하기
SGstock.Cells[0,0] := '입고여부';
SGstock.cells[1,0] := '바코드';
SGstock.cells[2,0] := '부품상태';
//i := 0;
for i := 1 to 2 do
begin
SGstock.objects[0,i] := Tcheckbox.Create(SGstock);
sgstock.objects[2,i] := Tcombobox.create(sgstock); //////
with Tcheckbox(SGstock.Objects[0,i]) do
begin
//onkeyup := checkboxkeyup;
//onmouseup := checkboxmouseup;
parent := SGstock;
boundsrect := SGstock.cellrect(0,i);
width := SGstock.colwidths[0];
height := SGstock.rowheights[0];
checked := false;
//left := SGstock.left ;
end;
with Tcombobox(sgstock.objects[2,i]) do
begin
//onkeyup :=
parent := SGstock; ////
boundsrect := SGstock.cellrect(2,i);
width := SGstock.colwidths[2]; //CBpart_state.//
height := SGstock.rowheights[2];
Style := csDropDownList;
//checked := false;
//====================================================================
with qware do
begin
close;
sql.clear;
sql.add('select code_class from total_code where
del_date=''00000000000000'' ');
sql.add('and code_name=''부품상태''');
open;
s_code_class := fieldbyname('code_class').asstring;
close;
sql.clear;
sql.add('select code_name from total_code ');
sql.add('where code_class = :p_code_class and code <> ''CODE'' ');
parambyname('p_code_class').asstring := s_code_class;
open;
Items.clear;
Items.add('');
while not eof do
begin
items.add(fieldbyname('code_name').asstring);
next;
end;
end;
//=====================================================================
end;
이렇게 하니까 콤보박스는 자동 생성 되는데 아이템이 들어 가지 않터군요.
고수님들 부탁드립니다.
SGstock.cells[1,0] := '바코드';
SGstock.cells[2,0] := '부품상태';
//i := 0;
for i := 1 to 2 do
begin
SGstock.objects[0,i] := Tcheckbox.Create(SGstock);
sgstock.objects[2,i] := Tcombobox.create(sgstock); //////
with Tcheckbox(SGstock.Objects[0,i]) do
begin
//onkeyup := checkboxkeyup;
//onmouseup := checkboxmouseup;
parent := SGstock;
boundsrect := SGstock.cellrect(0,i);
width := SGstock.colwidths[0];
height := SGstock.rowheights[0];
checked := false;
//left := SGstock.left ;
end;
with Tcombobox(sgstock.objects[2,i]) do
begin
//onkeyup :=
parent := SGstock; ////
boundsrect := SGstock.cellrect(2,i);
width := SGstock.colwidths[2]; //CBpart_state.//
height := SGstock.rowheights[2];
Style := csDropDownList;
//checked := false;
//====================================================================
with qware do
begin
close;
sql.clear;
sql.add('select code_class from total_code where
del_date=''00000000000000'' ');
sql.add('and code_name=''부품상태''');
open;
s_code_class := fieldbyname('code_class').asstring;
close;
sql.clear;
sql.add('select code_name from total_code ');
sql.add('where code_class = :p_code_class and code <> ''CODE'' ');
parambyname('p_code_class').asstring := s_code_class;
open;
Items.clear;
Items.add('');
while not eof do
begin
items.add(fieldbyname('code_name').asstring);
next;
end;
end;
//=====================================================================
end;
이렇게 하니까 콤보박스는 자동 생성 되는데 아이템이 들어 가지 않터군요.
고수님들 부탁드립니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 만성
- •
- 2001.10.18 09:19
- 2 COMMENTS
- /
- 0 LIKES
-
나는나•2001.10.18 10:57procedure TForm1.Button1Click(Sender: TObject); begin Edit1.SetFocus; Edit1.SelectAll; end; ... -
만성•2001.10.18 23:20나는나 wrote: > procedure TForm1.Button1Click(Sender: TObject); > begin > Edit1.SetFocus; > ...
-
- 델사랑
- 2001.10.18 08:52
- 0 COMMENTS
- /
- 0 LIKES
-
- Program Files
- •
- 2001.10.18 08:49
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.10.18 22:54안녕하세요. 최용일입니다. 아래와 같이 하세요... IE v5.0이상에서... uses ..., ShlObj; co...
-
Program Files•2001.10.30 19:25일단 답변에 감사 드립니다... 근데..윈도우2000에서는 잘 되거든요...첫번째것이... 윈도우98에서는 둘...
-
- 주복락
- •
- 2001.10.18 08:14
- 2 COMMENTS
- /
- 0 LIKES
-
이명훈•2001.10.18 18:42프로시져 선언을 하신담에 Shift+Ctrl+C키를 눌러보세요. 주복락 wrote: > 허접입니다.. 책을 보...
-
주복락•2001.10.18 20:14이명훈 wrote: > 프로시져 선언을 하신담에 Shift+Ctrl+C키를 눌러보세요. 이명훈님 정말 감사합니다....
-
- 김현섭
- •
- 2001.10.18 06:11
- 1 COMMENTS
- /
- 0 LIKES
-
이성찬•2001.10.19 01:34제 기억으론 퀵레포트는 델3에서 가장 많은 문제가 있었던것 같습니다. 패치를 다하셨나 확인해 보세요
-
- 찌르
- 2001.10.18 05:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 이미지 출력하고파
- 2001.10.18 03:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 늘초보
- •
- 2001.10.18 03:33
- 2 COMMENTS
- /
- 0 LIKES
-
돌멩이•2001.10.18 07:11늘초보 wrote: > ==등장폼== > Fmain : 메인폼 > Ffirst : 모달폼 > Fsecond : 모달폼 > > ==내용==...
-
델파이 탐 크르즈•2001.10.18 03:37이렇게 하시면 다운이 않될것 같군요.. 제가 지금 하고 있는 소스를 올립니다.. 보시고 참고 하시면 되여...
-
- 하이퍼초보
- •
- 2001.10.18 03:09
- 2 COMMENTS
- /
- 0 LIKES
-
델 삽질맨•2001.10.24 03:12하이퍼는 퀵과 달리 독립적인 유닛이필요로 합니다. 그래서 하이퍼유닛이 auto_create_Form으로 되어 있으...
-
델파이 탐 크르즈•2001.10.18 03:26QuickRep의 인스펙터 오프젝트의 속성중에 dataset에다가 Qry 컴포넌트을 연결 않하신것 같군요... 그럼...
-
- 맨땅에 헤딩 하는 넘.
- •
- 2001.10.18 02:51
- 1 COMMENTS
- /
- 0 LIKES
-
델파이 탐 크르즈•2001.10.18 03:31이렇게 하시면 될것 같군요... var FH : TextFile; begin Assignfile(FH,FileListBox...
-
- 김은희
- •
- 2001.10.18 02:43
- 3 COMMENTS
- /
- 0 LIKES
-
김지엽•2001.10.18 07:03생성을 이렇게 시켜주세요. WebBrowser2 := TWebBrowser.Create(Self); TControl(WebBrowser2).Parent ...
-
김은희•2001.10.18 18:57감사드립니다. 그렇게 하니까 되네요.. 제가 또 하나 해결하지 못한것이... webbrowser을 생성후 web...
-
김지엽•2001.10.19 20:57음.. 별다른 문제점을 생각해낼 수가 없네요? 어쩌면 ASP를 제공하는 서버의 문제가 아닐까요? 한꺼번에 ...
-
- 안창기
- •
- 2001.10.18 02:08
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.18 04:29안창기 wrote: > 디렉토리에 있는 파일을 한번에 삭제하는 방법좀 알으켜 주세요. > 디렉토리에 있는 파...
-
- 미로
- 2001.10.18 01:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 이쁜이
- •
- 2001.10.18 01:32
- 1 COMMENTS
- /
- 0 LIKES
-
aparadin•2001.10.18 19:43이쁜이 wrote: > 델파이에서 직접 프린트 할려구 하는데 > 라인피드하는 방법 알려주세요.. > CHR(13),C...
-
- 델파이초보
- 2001.10.18 01:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 델프리
- 2001.10.18 01:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 정규성
- •
- 2001.10.18 01:20
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.18 04:58정규성 wrote: > 아래처럼 데이터를 Integer의 데이터를 날짜 형식으로 바꿔서 EditBox에 넣을려고 하는데...
-
- 수정이^^
- •
- 2001.10.18 01:02
- 1 COMMENTS
- /
- 0 LIKES
-
지나는이•2001.10.19 09:41수정이^^ wrote: > 오빠들 일은 잘 하고 있겠죠..^^..땡땡이 피지 말라구여..저처럼..^^ > 다른게 아니라...
-
- 바이오맨(초보)
- •
- 2001.10.18 01:01
- 1 COMMENTS
- /
- 0 LIKES
SGstock.Cells[0,0] := '입고여부'; SGstock.cells[1,0] := '바코드'; SGstock.cells[2,0] := '부품상태'; //i := 0; for i := 1 to 2 do begin SGstock.objects[0,i] := Tcheckbox.Create(SGstock); sgstock.objects[2,i] := Tcombobox.c...-
홍성락•2001.10.18 06:33바이오맨(초보) wrote: > SGstock.Cells[0,0] := '입고여부'; > SGstock.cells[1,0] := '바코드';...
-
- 나옹이
- •
- 2001.10.18 00:47
- 1 COMMENTS
- /
- 0 LIKES
-
cho•2001.10.18 01:02프로그램 종료쪽 루틴에 이미 해제된 변수나 폼을 다시 해제시킨다든가 하는 부분때문일겁니다. 추적을...
> SGstock.Cells[0,0] := '입고여부';
> SGstock.cells[1,0] := '바코드';
> SGstock.cells[2,0] := '부품상태';
> //i := 0;
> for i := 1 to 2 do
> begin
> SGstock.objects[0,i] := Tcheckbox.Create(SGstock);
> sgstock.objects[2,i] := Tcombobox.create(sgstock); //////
> with Tcheckbox(SGstock.Objects[0,i]) do
> begin
> //onkeyup := checkboxkeyup;
> //onmouseup := checkboxmouseup;
> parent := SGstock;
> boundsrect := SGstock.cellrect(0,i);
> width := SGstock.colwidths[0];
> height := SGstock.rowheights[0];
> checked := false;
> //left := SGstock.left ;
> end;
> with Tcombobox(sgstock.objects[2,i]) do
> begin
> //onkeyup :=
> parent := SGstock; ////
> boundsrect := SGstock.cellrect(2,i);
> width := SGstock.colwidths[2]; //CBpart_state.//
> height := SGstock.rowheights[2];
> Style := csDropDownList;
> //checked := false;
> //====================================================================
> with qware do
> begin
> close;
> sql.clear;
> sql.add('select code_class from total_code where
> del_date=''00000000000000'' ');
> sql.add('and code_name=''부품상태''');
> open;
> s_code_class := fieldbyname('code_class').asstring;
>
> close;
> sql.clear;
> sql.add('select code_name from total_code ');
> sql.add('where code_class = :p_code_class and code <> ''CODE'' ');
> parambyname('p_code_class').asstring := s_code_class;
> open;
> Items.clear;
> Items.add('');
> while not eof do
> begin
> items.add(fieldbyname('code_name').asstring);
> next;
> end;
> end;
> //=====================================================================
> end;
>
> 이렇게 하니까 콤보박스는 자동 생성 되는데 아이템이 들어 가지 않터군요.
> 고수님들 부탁드립니다.
//////////////////////////////////////////////////////////////////////////
소스상에선 데이터가 들어가거든요, 아마 DropDown이 안되서 그러는것 같습니다.
일단 생성한것이므로 초기값을 줘야되는게 있는데요.
일반 콤보박스도 ClientHeight값에 따라 DropDown이 안되게할수있거든요,
아래것에 적당한 값을 넣어보세요.
ClientHeight:=100;