안녕하세요...델파이 고수님들....
listView에 뿌려진 내용을 삭제하려구 하는데요...
listView는 각 행의 내용을 마우스로 선택이 안되네요...
caption만 선택이 되는데 그행을 다선택해서 삭제는 안되는건가요?
MultiSelect해서 한번에 삭제 되는것도 아시면 좀....갈켜주세요...
그럼 부탁드림니다...
procedure Tjage_Inout.btDeleteClick(Sender: TObject);
var
i : integer;
listItem : TlistItem;
begin
listItem := nil;
listItem := JajeInoutListView.Selected;
if listItem = nil then
begin
Showmessage('삭제할 리스트 번호를 선택하십시요');
exit;
end
else
begin
for i:=JajeInoutListView.Items.Count-1 downto 0 do
ListItem := JajeInoutListView.Items[i];
listItem.Free;
end;
end;
end.
전체행을 선택하실려면 RowSelect속성을 True로 해주시면 되구, 삭제는 아래와 같이
Delete메소드를 사용하세요.
var
I: Integer;
begin
if JajeInoutListView.SelCount = 0 then
begin
Showmessage('삭제할 리스트 번호를 선택하십시요');
exit;
end;
for I := JajeInoutListView.Items.Count - 1 downto 0 do
if JajeInoutListView.Items[I].Selected then
JajeInoutListView.Items.Delete(I);
end;
^^ 항상 즐코하세요.
유병용 wrote:
> 안녕하세요...델파이 고수님들....
> listView에 뿌려진 내용을 삭제하려구 하는데요...
> listView는 각 행의 내용을 마우스로 선택이 안되네요...
> caption만 선택이 되는데 그행을 다선택해서 삭제는 안되는건가요?
> MultiSelect해서 한번에 삭제 되는것도 아시면 좀....갈켜주세요...
> 그럼 부탁드림니다...
>
> procedure Tjage_Inout.btDeleteClick(Sender: TObject);
> var
> i : integer;
> listItem : TlistItem;
> begin
> listItem := nil;
> listItem := JajeInoutListView.Selected;
> if listItem = nil then
> begin
> Showmessage('삭제할 리스트 번호를 선택하십시요');
> exit;
> end
> else
> begin
> for i:=JajeInoutListView.Items.Count-1 downto 0 do
> ListItem := JajeInoutListView.Items[i];
> listItem.Free;
> end;
>
> end;
>
> end.