안녕하세요..
스트링그리드에 동적으로 콤보 박스를 만들었는데여..
이 콤보에 이벤트는 어떻게 주나여..
for i := 1 to StringGrid1.RowCount-1 do
begin
StringGrid1.objects[3,i] := Tcombobox.create(sgstock); //////
with Tcombobox(StringGrid1.objects[3,i]) do
begin
parent := SGstock; ////
width := SGstock.colwidths[2]; //CBpart_state.//
height := SGstock.rowheights[2];
Style := csDropDownList;
ClientHeight:=100;
itemindex := 0;
Text := '선택!!';
items.add('100');
items.add('200');
items.add('300');
OnChange := ComboBox1Change; // 여기서 이벤트를 줄려구 하는데 안 되네염..
end;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
showmessage('몇번째 인덱스 값일까여..')
end;
제가 할려구 하는 것은 다음과 같습니다.
위에서처럼 그리드의 총 rows 를 구해서 구 수만큼 combobox 를 만들어 주구여.
그 콤보박스를 눌러서 누른 itemindex 의 값을 스트링그리드에 뿌려줄려구 합니다.
어떻게 좋을까염..
어제부터 삽질하거 있네염..
아시는 분 답변점 해 주세염..