Fórum Ver se o controle possui determinada propriedade #263492

{------------------------------------------------------------------------------
  Troca o DataModule de origem de todos os Datasets de "AForm" para o novo
  "NewDataModule"
----------------------------------------------------------------------------- }
procedure MudaDataModule( AForm : TForm; NewDataModule : TDataModule ) ;
var
  i:longint;
  c: TComponent;
  propInfo: PPropInfo;
  l:longint;
  ds: TDataSet;
  dsname: string;
  Ativo : Boolean ;
begin
  for i:=0 to AForm.ComponentCount-1 do
    begin
      c := AForm.components[i];          // Look for the DataSource property
      propInfo := getPropInfo(c.classinfo,´DataSet´);
      if assigned(propinfo) then         //If found
        begin
          l := getordprop(c,propInfo);    //Gets the property
          dsname := TDataSet(l).Name;     //Gets the DataSet name
          Ativo  := TDataSet(l).Active ;
          //And gets the instance of the new DataSet
          ds := NewDataModule.findcomponent(dsname) as TDataSet ;
          if assigned(ds) then
            begin
              TDataSet(l).Close ;
              //Sets the new datasource
              setordprop(c,propInfo,longint(ds));
              l := getordprop(c,propInfo);    //Gets the property
              TDataSet(l).Active := Ativo ;
            end;
        end;
    end;

end;