將信息從一種形式傳遞給另一種形式？

Question

你將如何從一種形式傳遞信息爲另一種形式，如在編輯中輸入的形式1和值，當按鈕被按下在編輯的信息將被髮送到一個標籤上的表格2.

如何我可以這樣做嗎？

Answer 1

如果只是將一個表單上的編輯控件的內容傳遞給另一個表單上的標籤，那麼只需設置Label.Caption（表單上的組件是該表單的發佈屬性）即可。

。假定你已經加入含TForm2到TForm1單元的單元，創造了兩種形式，而且他們都有各自的默認名稱：

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    Form2.Label1.Caption := Edit1.Text; 
end; 

如果您尚未創建第二種形式，您可以這樣做，並同時分配標籤說明。這個例子說明如何創建一個新的形式，設置標籤標題，展現形式，並等待用戶關閉它，然後釋放形式：

procedure TForm1.Button1Click(Sender: TObject); 
var 
    NewForm: TForm2; 
begin 
    NewForm := TForm2.Create(nil); 
    try 
    NewForm.Label1.Caption := Edit1.Text; 
    NewForm.ShowModal; 
    finally 
    NewForm.Free; 
    end; 
end; 

對於更復雜的需求，您可以創建屬性您可以調用第二種形式的一套或多套方法，將信息作爲參數傳遞給過程。