fmx [FMX] FireMonkey TStringGrid 에서 TComboBox 사용 하는 방법.

[c2design]

 

FireMonkey 플랫폼의 TStringGrid 에서 TComboBox 를 사용 하는 방법입니다.

예시된 샘플은 TMemo 의 데이터를 동적생성된 TComboBox로 불러와서 TStringGrid 에서 사용을 합니다.

먼저 TStringGrid 에 Add Item 항목으로 TColumn을 추가 합니다.

그리고 TStringGrid 의 OnCreateCustomEditor 이벤트 메소드를 추가 하고 아래와 소스와 같이 입력 합니다.

TCombobox 의 OnChange 메소드에는 ChangeStringGridComboBox 프로시져를 연결 합니다.

빌드후 실행하면 TStringGrid 첫번째 컬럼의 셀 선택시 콤보박스에서 데이터를 선택하여 입력 할 수 있습니다.

type THelpModel = class(TGridModel);

procedure TForm1.ChangeStringGridComboBox( Sender : TObject );
begin
  with TComboBox( Sender ), StringGrid1 do
  begin
    THelpModel( Column1.Model ).DoSetValue( Col, Row, TValue.From<String>(Items[ItemIndex] ) );
    Column1.UpdateCell(Row);
  end;
end;

procedure TForm1.StringGrid1CreateCustomEditor(Sender: TObject; const Column: TColumn; var Control: TStyledControl);
begin
  if Column = Column1 then
  begin
    Control := TComboBox.Create(Self);
    TComboBox( Control ).Items.Assign( Memo1.Lines );
    with StringGrid1, TComboBox( Control ) do
      ItemIndex := Items.IndexOf( THelpModel( Column.Model ).DoGetValue(Col,Row).AsString );
    TComboBox( Control ).OnChange := ChangeStringGridComboBox;
  end;

end;

 

데모영상