자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Firemonkey BindingsList 에 LinkList 를 추가하는 방법을 알고 싶습니다.
2015.12.05 19:16
늘 가르침을 주심에 감사드립니다.
초보자가 또 질문을 올립니다.
BindingsList 에 라이브바인딩에서 연결한 내역이 있는 것을 보았습니다.
라이브바인딩 디자이너에서 필드와 TEdit 등 개체를 연결하는 선에는 LinkControlToField.. 라는 이름이 주어지고 프로퍼티도 있는 것을 보았습니다
라이브바인딩 디자이너에서 선을 연결하지 않고 코딩으로 BindingsList 에 LinkListControlToField 를 추가하는 방법을 알고싶습니다.
가령 Field01 은 TEdit 이고, Field02 은 TComboEdit 이고, Field03 은 TDateEdit 입니다.
Field01 은 TBindSourceDB 의 Field01 에 연결하고, Field02 은 TBindSourceDB 의 Field02 에 연결하고, TComboEdit 는 TBindSourceDB 의 Field03 에 연결하려고 합니다.
(라이브바인딩 디자이너에서 TEdit 와 TComboEdit 와 TDateEdit 의 연결하는 셀이 각각 달랐습니다)
코드를 어떻게 구성해야 하는지 가르침을 주시기 바랍니다.
Firemonkey BindingsList 에 LinkList 를 추가하는 방법을 알고 싶습니다.
2015.12.05 19:16
늘 가르침을 주심에 감사드립니다.
초보자가 또 질문을 올립니다.
BindingsList 에 라이브바인딩에서 연결한 내역이 있는 것을 보았습니다.
라이브바인딩 디자이너에서 필드와 TEdit 등 개체를 연결하는 선에는 LinkControlToField.. 라는 이름이 주어지고 프로퍼티도 있는 것을 보았습니다
라이브바인딩 디자이너에서 선을 연결하지 않고 코딩으로 BindingsList 에 LinkListControlToField 를 추가하는 방법을 알고싶습니다.
가령 Field01 은 TEdit 이고, Field02 은 TComboEdit 이고, Field03 은 TDateEdit 입니다.
Field01 은 TBindSourceDB 의 Field01 에 연결하고, Field02 은 TBindSourceDB 의 Field02 에 연결하고, TComboEdit 는 TBindSourceDB 의 Field03 에 연결하려고 합니다.
(라이브바인딩 디자이너에서 TEdit 와 TComboEdit 와 TDateEdit 의 연결하는 셀이 각각 달랐습니다)
코드를 어떻게 구성해야 하는지 가르침을 주시기 바랍니다.
1, Bindings Designer에서 선으로 연결한 내용은 BindingsList 컴포넌트에 추가됩니다.
2, 컴포넌트에 추가된 내용은 코드를 이용해 동적으로 생성할 수 있습니다.
다음과 같은 코드를 통해 가능합니다. 다른 컨트롤들은 아래 코드를 활용해 보세요.
procedure TForm3.Button1Click(Sender: TObject);
var
LCF: TLinkControlToField;
begin
LCF := TLinkControlToField.Create(BindingsList1);
LCF.Control := Edit1;
LCF.DataSource := PrototypeBindSource1;
LCF.FieldName := 'ContactTitle1';
LCF.Active := True;
LCF := TLinkControlToField.Create(BindingsList1);
LCF.Control := DateEdit1;
LCF.DataSource := PrototypeBindSource1;
LCF.FieldName := 'DateTimeField1';
LCF.Active := True;
end;