TreeViewとListViewの選択をするには？？ (ID:12539)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

他にも色々方法ありますが。
簡単げな方法をひとつ

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Button1: TButton;
    ListView1: TListView;
    procedure ListView1Change(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
  private
    { Private 宣言 }
    eventFlag:boolean;
    procedure commonEvent(Sender: TObject);
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.commonEvent(Sender: TObject);
begin
  caption:=(Sender as TWinControl).Name;
end;

procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
if eventFlag=True then
 exit else
 begin
   eventFlag:=True;
   TreeView1.Items[Item.Index].Selected :=True;
   commonEvent(Sender);
   eventFlag:=False;
 end;

end;

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if eventFlag=True then
 exit else
 begin
   eventFlag:=True;
   ListView1.Items[Node.Index].Selected :=True;
   commonEvent(Sender);
   eventFlag:=False;
 end;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る