Dataset EnableControls and DisableControls Methods in Delphi
Dataset EnableControls and DisableControls Methods in Delphi
EnableControls re-enables data display in data-aware controls associated with the dataset. Call EnableControls to permit data display in data-aware controls after a prior call to DisableControls. EnableControls decrements the disabled count variable for the dataset if it is not already zero. If the disable count variable is zero, EnableControls updates the current state of the dataset, if necessary, and then tells associated controls to re-enable display.
Usually DisableControls is called within the context of a try...finally block that re-enables the controls even if an exception occurs.
Simple Delphi Example to show the usage of EnableControls and DisableControls
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
ListBox1.Clear;
ListBox1.Items[0]:= 'Destination Airports:';
with Flights do
begin
DisableControls;
try
First;
i:= 1;
ListBox1.Items[0]:= 'Destination Airports:';
while not Eof do
begin
ListBox1.Items[i]:= Fields[2].Value;;
i:= i + 1;
Next;
end;
finally
EnableControls;
end;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
Flights:= TTable.Create(Form1);
with Flights do
begin
TableName := 'Flights';
DatabaseName := 'databasepath';
end;
DS2.DataSet:= Flights;
DBGrid2.DataSource.DataSet:= Flights;
Flights.Active:= True;
end;