Q&A

  • Listview checkbox 표시된것 또다른 Listview 삽입
Listview 에서 check true 인것을 버튼 클릭 이벤트시 또다른 Listview에다

아이템들을 삽입하고 싶습니다.

어느정도 작성을 하였는데 않되더군요.

조언좀 해주셨으면 합니다..

고맙습니다.

2  COMMENTS
  • Profile
    최용일 2001.03.10 20:17
    안녕하세요. 최용일입니다.



    TListItem.Checked로 판별해서 TListItem.Assign으로 복사해주시면 됩니다. 루프를 돌려서...



    procedure TForm1.Button1Click(Sender: TObject);

    var

    Index: Integer;

    Item: TListItem;

    begin

    for Index := 0 to ListView1.Items.Count - 1 do

    begin

    if ListView1.Items[Index].Checked then

    begin

    Item := ListView2.Items.Add;

    Item.Assign(ListView1.Items[Index]);

    end;

    end;

    end;



    ^^ 항상 즐코하세요...



    지풍 wrote:

    > Listview 에서 check true 인것을 버튼 클릭 이벤트시 또다른 Listview에다

    > 아이템들을 삽입하고 싶습니다.

    > 어느정도 작성을 하였는데 않되더군요.

    > 어느정도 조언좀 해주셨으면 합니다..

    > 고맙습니다.

  • Profile
    지풍 2001.03.10 20:29
    최용일 wrote:

    > 안녕하세요. 최용일입니다.

    >

    > TListItem.Checked로 판별해서 TListItem.Assign으로 복사해주시면 됩니다. 루프를 돌려서...

    >

    > procedure TForm1.Button1Click(Sender: TObject);

    > var

    > Index: Integer;

    > Item: TListItem;

    > begin

    > for Index := 0 to ListView1.Items.Count - 1 do

    > begin

    > if ListView1.Items[Index].Checked then

    > begin

    > Item := ListView2.Items.Add;

    > Item.Assign(ListView1.Items[Index]);

    > end;

    > end;

    > end;

    >

    > ^^ 항상 즐코하세요...

    >

    > 지풍 wrote:

    > > Listview 에서 check true 인것을 버튼 클릭 이벤트시 또다른 Listview에다

    > > 아이템들을 삽입하고 싶습니다.

    > > 어느정도 작성을 하였는데 않되더군요.

    > > 어느정도 조언좀 해주셨으면 합니다..

    > > 고맙습니다.