ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

Ru 2008/02/12(ｿｽｿｽ) 13:50:17

ｿｽｿｽｿｽﾂゑｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
TListViewｿｽﾌチｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽﾉ１ｿｽﾂゑｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽTｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽListViewｿｽｿｽClickｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽListItemｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ１ｿｽﾂゑｿｽｿｽｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾍでゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽC
ｿｽ`ｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉ対会ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽ@ｿｽｿｽｿｽﾙなゑｿｽ`ｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽｿｽIｿｽｿｽｿｽｿｽﾄゑｿｽCListViewｿｽﾍ前ｿｽｿｽｿｽListItemｿｽｿｽIｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ

ｿｽﾎ擾ｿｽｿｽｿｽｿｽｿｽﾗゑｿｽListViewｿｽｿｽChangeｿｽCｿｽxｿｽｿｽｿｽgｿｽｿｽﾉゑｿｽListItemｿｽｿｽIｿｽｿｽｿｽｿｽ髀茨ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽC
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽvｿｽiｿｽXｿｽ^ｿｽbｿｽNｿｽIｿｽ[ｿｽoｿｽ[ｿｽtｿｽｿｽｿｽ[ｿｽjｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽ`ｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽ@ｿｽ¥ｿｽ無鯉ｿｽｿｽﾉゑｿｽｿｽｿｽﾎ搾ｿｽｿｽｿｽﾌ鯉ｿｽｿｽﾍ考ｿｽｿｽｿｽﾈゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽiMultiSelectｿｽ@ｿｽ¥ｿｽﾅ撰ｿｽｿｽｿｽﾂ能ｿｽﾈ為）ｿｽC
ｿｽLｿｽｿｽｿｽﾉゑｿｽｿｽｿｽｿｽｿｽﾔで擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽlｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾇなゑｿｽｿｽｿｽｿｽﾇゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎゑｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾂ具ｿｽｿｽFDelphiｿｽV


//ｿｽｿｽｿｽXｿｽgｿｽrｿｽｿｽｿｽ[ｿｽ@ｿｽNｿｽｿｽｿｽbｿｽNｿｽｿｽ
procedure TForm1.ListView1Click(Sender: TObject);
begin
  ListItemSelect;
end;


//ｿｽｿｽｿｽXｿｽgｿｽAｿｽCｿｽeｿｽｿｽｿｽIｿｽｿｽ
procedure TForm1.ListItemSelect;
var
  i: Integer;
  TmpItem: TListItem;

begin

  if Assigned(ListView1.Selected) = False then Abort;

  TmpItem := ListView1.Selected;

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

    if TmpItem = ListView1.Items.Item[i] then
    begin
      ListView1.Items.Item[i].Checked := True;
    end
    else
    begin
      ListView1.Items.Item[i].Checked := False;
    end;

  end;

end;


//ｿｽ`ｿｽFｿｽbｿｽNｿｽ{ｿｽbｿｽNｿｽXｿｽﾏ更ｿｽｿｽ
procedure TForm1.ListView1Change(Sender: TObject;
  Item: TListItem; Change: TItemChange);
var
  IsChecked: Boolean;

begin

  if Change = ctState then
  begin

    IsChecked := Item.Checked;

    if (Item.StateIndex = 1) <> IsChecked then
    begin
      Item.Selected := True; ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ[ｿｽvｿｽｿｽｿｽ骭ｴｿｽｿｽ
      ListItemSelect;
    end;

  end;

end;

ｿｽｿｽｿｽﾟよさｿｽｿｽﾎ与ｿｽｿｽｿｽｿｽｿｽｿｽ 2008/02/12(ｿｽｿｽ) 15:36:09

ListItemｿｽIｿｽｿｽｿｽｿｽﾉゑｿｽAｿｽ`ｿｽFｿｽbｿｽNｿｽｿｽONｿｽﾉゑｿｽｿｽｿｽだゑｿｽﾋ？(RowSelectｿｽｿｽTrue)

var
  si: TlistItem = nil;

procedure TForm1.ListView1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Item: TlistItem;
begin
  with TListView(Sender) do begin
   Item := GetItemAt(X, Y);
   if Item <> nil then begin
    Selected := Item;
    Selected.Checked := True;
    ItemFocused := Item;
    if (si <> nil)and(si <> Item) then si.Checked := False;
    si := Item;
   end;
  end;
end;

ｿｽすｿｽｿｽｿｽｿｽ 2008/02/12(ｿｽｿｽ) 15:55:57

ｿｽｿｽｿｽｿｽｿｽLｿｽ[ｿｽﾉゑｿｽﾎ会ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽlｿｽB

procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem; Change: TItemChange);
begin
  with TListView(Sender) do begin
   if Selected = nil then exit;
   Selected.Checked := True;
   if (si <> nil)and(si <> Item) then si.Checked := False;
   si := Item;
  end;
end;

Ru 2008/02/12(ｿｽｿｽ) 16:20:49

ｿｽﾔ信ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜで思ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾅの撰ｿｽｿｽｿｽﾍ抵ｿｽｿｽﾟてゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽﾅ費ｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾊｿｽｿｽ[ｿｽ`ｿｽｿｽｿｽｿｽChangeｿｽCｿｽxｿｽｿｽｿｽgｿｽﾌ撰ｿｽｿｽｿｽﾆぶつゑｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽC
ｿｽｿｽｿｽｿｽｿｽﾍソｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆでゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾍゑｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌトｿｽbｿｽvｿｽｿｽ