Lazarus form2에서 추가 할 수있는 form1의 목록보기

Question

다른 비슷한 질문이있어서 사과드립니다.하지만 제가 가지고있는 문제에 대한 간단한 해결책을 찾고 싶습니다.

form2에 추가 할 수있는 form1의 목록 뷰가 있습니다. Form2는 button1에 의해 form1에 의해 생성됩니다. Form2에는 listview가 있으며 form2의 버튼을 클릭하면 form1의 listview에 모든 항목을 추가하고 form2를 닫을 수 있습니다. 가장 간단한 방법은 무엇입니까?

* Windows 메시징을 사용해 보았지만 어떤 이유로 Lazarus가 TWM_CopyData와 작동하지 않습니다.

Answer 1

내가 참조하는 장치를 선호하기 때문에 여기에 도움이 될 것입니다. Form2에는 Form2이 표시되기 전에 Form1에서 목록보기가 할당 된 public 속성 TargetListView이 선언됩니다. 이제 범위 Form2에서 Form1 목록보기에 액세스 할 수 있으며 항목을 닫으면 해당 항목을 복사 할 수 있습니다. 여기

은 제 1 유닛에 대한 단순화 된 코드이다 :

unit Unit1; 

uses 
    Unit2; 

type 
    TForm1 = class(TForm) 
    Button1: TButton; 
    ListView1: TListView; 
    procedure Button1Click(Sender: TObject); 
    private 
    { private declarations } 
    public 
    { public declarations } 
    end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Form2 := TForm2.Create(Self); 
    Form2.TargetListView := ListView1; 
    Form2.Show; 
end; 

그리고 여기서 상기 제 2 유닛에 대한 단순화 된 코드이다 :

unit Unit2; 

type 
    TForm2 = class(TForm) 
    Button1: TButton; 
    ListView1: TListView; 
    procedure Button1Click(Sender: TObject); 
    private 
    { private declarations } 
    public 
    TargetListView: TListView; 
    end; 

procedure TForm2.Button1Click(Sender: TObject); 
var 
    I: Integer; 
begin 
    TargetListView.Items.BeginUpdate; 
    try 
    for I := 0 to ListView1.Items.Count - 1 do 
     TargetListView.Items.Add.Assign(ListView1.Items[I]); 
    finally 
    TargetListView.Items.EndUpdate; 
    end; 
    Close; 
end; 

[파스칼로 mainform에서리스트 뷰를 전달