請問各位~    前幾天wameng提供一個類似的範例~ 因為目前需求是在兩個表單作傳遞~ 另外,在第二個表單中增加兩個按鈕~ 分別是全選和全不選~ 現在有個問題就是當我點選後~ 將值帶入第一個表單Memo1中內~ 但是當我重新點選時~原本點選資料依然是存在的~  希望可以作到清空值動作~ 另外,原本想可能是第二個表單沒有加 FormClose -> st.Free; 這樣的處理~ 但是加入後,程式卻有問題~ 所以我就沒有加入這樣的設定~ 以下是我附上圖片~ 麻煩各位~ 謝謝~

事實上，是不難的。 主要想法您可以將呼叫 Form2 的動作寫成一Procedure，並將所選擇的項目帶入。    如：

Procedure CallForm2(SelectedItems:Tstrings);
var
  Form2 :Tform2;
  I :integer
begin
  Form2 :=Tform2.Create(Application);
  Try
    {查詢資料庫動作。假設為Query1}
    For I:=0 to SelectedItems.Count-1 do
    begin
      { 老實說我還搞不清楚您是要用 DBGrid 還是StringGrid }
      if Query1.Locate('單別欄位',SelectedItems[I],[]) then
      begin
      end;
    end;
    ShowModal;
    { 在依照 Grid 的選擇，增加到SelectedItems }
  Finally
    FreeandNil(Form2);
  end;
end;

使用 CallForm2(MEMO1.Lines);

Hi wameng 您好~ 我只是希望說當使用者點選查詢後~ 關閉Form2這個表單時~ 當使用者清空Form1.Memo1的資料時~ 再重新點選時,Form2是不可以存在之前所點選單別~ Form2所秀的單別都是未勾選~ 謝謝您~ ^^

Hi wameng 您好~ Form2表單~ ADOQuery1 元件 DataSource1 元件 DBGrid1 元件 SpeedButton1 元件(確定鍵) SpeedButton2 元件(取消鍵) 以上是我在Form2所組成資料~ 我有試著將您所提供的程式碼~作測試~ 似乎有點問題~ 謝謝~ ^^

Hi wameng 您好~    if ADOQuery1.Locate('單別欄位',SelectedItems[I],[]) then 所指的是Form2的ADOQuery1嗎~ 謝謝~

我有好一陣子沒上來了。(Busy) 事實上，您的問題很簡單的。 在點選後帶入 Form2 。 Form2 動作可以寫成一個函數，並返回所選擇的項目。