FilterComboBoxFilter (Delphi)

Description

This example uses a filter combo box and a file list box on a form. When you select a filter in the filter combo box, the file list box displays only files that match the selected mask.

Code

procedure TForm1.FilterComboBox1Change(Sender: TObject);
begin
  FileListBox1.Mask := FilterComboBox1.Mask;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FilterComboBox1.Filter := 'All files (*.*)|*.*| Pascal files (*.pas)|*.pas';
end;

Uses

• Vcl.FileCtrl.TFilterComboBox.Filter ( fr | de | ja )
• Vcl.FileCtrl.TFileListBox.Mask ( fr | de | ja )
• Vcl.FileCtrl.TFilterComboBox.Mask ( fr | de | ja )