Procedure TForm1.ToggleAll(Ok:boolean);
var
book: TBookMark;
begin
FTable.DisableControls;
book := FTable.GetBookmark;
try
FTable.First;
while not FTable.EOF do begin
RecList.CurrentRowSelected := Ok;
FTable.Next;
end;
finally
FTable.GotoBookmark(book);
FTable.FreeBookmark(book);
FTable.EnableControls;
end;
end;
procedure TForm1.BtnCheckAll(Sender:TObject);
begin
ToggleAll(true);
end;
procedure TForm1.BtnUnCheckAll(Sender:TObject);
begin
ToggleAll(false);
end;