´ñ±Û : 3 °³
Çѱ¹ µ¨ÆÄÀÌ µ¿È£È¸ µ¨¸¶´ç
¾Þ±Û·¯
(±è¼ºÁø)
 
ÄÞº¸¹Ú½ºÀÇ OnChange À̺¥Æ®·Î ÀÛ¼ºÇϽðí
ComboBox1.Items[0] À¸·Î °ª¿¡ Á¢±ÙÇؼ­ ÄÚµå ÀÛ¼ºÇϽø頵˴ϴÙ. 
2017-12-07 ¿ÀÀü 9:02:44
¹ø°³
(¼­Å¿í)
 
¼±ÅõȠItemIndex ½ºÆ®¸µÀ» Ã³¸®Çϸ頵Ǵµ¥
Àǵµ´Â ¸ð¸£°ÚÀ¸³ª ¸Å¹ø OnChange¿¡¼­ Ã³¸®Çϴ°ǠºñÈ¿À²ÀûÀÔ´Ï´Ù 
2017-12-07 ¿ÀÀü 9:10:47
Ŷû
(À±¼ºÅÂ)
 
Àú´Â ¿¹Àü¿¡ ÀÌ·¸°Ô Çß½À´Ï´Ù.
¸¸ÀÏ DB¸¦ ÀÌ¿ëÇÑ´Ù¸é ComboBox2¸¦  DBLookupCombobox¸¦ »ç¿ëÇؼ­ Çϸ頵˴ϴÙ.
-------------------------------------------------
procedure TForm1.ComboBox1Change(Sender: TObject);
Var Soccer :String;    Baseball :String;
begin
  Combobox2.Items.Clear ;
  Soccer := 'À̵¿±¹,Ȳ¼±È«,¾ÈÁ¤È¯,±è³²ÀÏ';
  Baseball := '¹ÚÂùÈ£,±èº´Çö,¼­ÀçÀÀ,ÃÖÈñ¼·';

 Case ComboBox1.ItemIndex Of
  0: Begin
       Combobox2.Items.DelimitedText := Soccer ;
     End;
  1: Begin
       Combobox2.Items.DelimitedText := Baseball ; 
     End;
 End;

end; 
2017-12-07 ¿ÀÈÄ 2:36:04