neuentwicklung datasetcontrol

[Matthias-k]

Delphi-Quellcode:

// deklaration unter protected

procedure tdirectgridcontrol.after(ds : tdataset); // procedure, die übergeben werden soll
begin
  if application <> nil then
  begin
    if FActive then
      loadproperties;
  end;
end;

// und das ist die create methode, wo das afteropen übergeben wird

constructor TDirectGridControl.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  if NOT (csDesigning in ComponentState) then
    fgrid.DataSource.DataSet.AfterOpen := after;

end;

das sind die relavanten stellen.