各位先進好？ Q1：請問如何讓Combobox可以MultiSelect？ Q2：SaveDialog的Filter設*.txt|*.xls 請問如何選‧txt或‧xls做不同的保存？ 例如: if ExtractFileExt（SaveDialog1.fileName） ='.xls' then //‧‧‧‧ else // 當然，SaveDialog1.fileName不含'.xls' or '.txt'

hi, 要用 combobox multiselect 比較麻煩, 考慮使用 listbox. 關於 savedialog 的部分, 若 user 有選定類型的話, 可以使用 filterindex 的屬性來取出即可!    

procedure TForm1.Button1Click(Sender: TObject);
begin
  SaveDialog1.Execute ;
  ShowMessage(SaveDialog1.FileName);
  ShowMessage(inttostr(SaveDialog1.filterindex));
end;

感謝前輩Timhuang的回應! ListBox可以multiSelect,但是不能像Combobox只佔用有限視窗空間, 在點擊時再打開選取內容.（或許是我對ListBox不熟的緣故,沒有找到） 不知是否有其他方式能夠取長補短?

發表人 - syntax 於 2003/08/08 14:53:00

Combobox 不是設計來 MultiSelect 要 MultiSelect 必須對元件加以改寫 你要不佔空間,那就做個bottom,然後再彈出一個小視窗,在按鈕的位置,視窗內只有 ListBox 不就得了

建議一個比較快速而簡單的方式:    

procedure TForm1.ListBox1Enter(Sender: TObject);
begin
  ListBox1.Height := 200;
end;    procedure TForm1.ListBox1Exit(Sender: TObject);
begin
  ListBox1.Height := 25;
end;

雖然不是很好. 但是還算是很容易的寫法, 當你要進入該 listbox 時, 就將高度設大, 離開時, 就將高度設為單1~2行高, 但是要將高度設大時會擋到的 vcl 元件, 如 button, edit 等, 其 z-order 設在此 listbox 的下面, 才不會將高度設大時, 會被這些元件遮住不美觀.