ObjectClass: MetabaseObjectClass;
The ObjectClass property determines type of the objects, which are displayed in the dialog box when the filter is used.
Executing the example requires a form with the Button1 button and the MetabaseOpenDialog component named MetabaseOpenDialog1.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Filter: IMetabaseDialogClassFilter;
Begin
Filter := New MetabaseDialogClassFilter.Create;
Filter.Description := "Tables";
Filter.ObjectClass := MetabaseObjectClass.KE_CLASS_TABLE;
MetabaseOpenDialog1.Filters.AddFilter(Filter);
MetabaseOpenDialog1.Execute(Self);
End Sub Button1OnClick;
After executing the example, pressing the button adds a new filter to a list of the MetabaseOpenDialog1 component filters. When using this filter all tables of the repository are displayed in a dialog box.
See also: