Find a property in component
lazarus / 5-Lazarus Extra Components

----------------------------------------------------------------------
luigisic · 2008-12-16 19:05

Hallo,
  I need to find a property in components passed as TObject.

I Need to modify the code:

Quotefunction TDataSetAction.GetDataSet(Target: TObject): TDataSet;
begin
  Result := (Target as TDataSource).DataSet;
end;

because it not works fine.

Value of Target is not of Type TDataSource as aspected.

It is of type TDBEdit or TDBcheckBox or ... etc

I need to use the DataSource property of Target value passed via
TObject

How I do?

Thanks.

----------------------------------------------------------------------
siegfriedn · 2008-12-18 17:21

[..]
if Target is TDataSource then
begin
    Result := TDataSource(Target).Dataset;
end;
[..]

Siegfried

----------------------------------------------------------------------
luigisic · 2008-12-18 18:23

Quote from: "siegfriedn"[..]
if Target is TDataSource then
begin
    Result := TDataSource(Target).Dataset;
end;
[..]

Siegfried
Thanks, but in this manner not works because "Target" is not
TDataSource for all :cry: because the metod is called for visual
component like TDBEdit, TDBText, TLabels etc.

I have thought that the right solutions is to implements on TDBEdit,
TDBText etc the method that are not implented like ExecuteAction and
UpdateAction but I discovered an unexpected behavior.

If I implements the method above in public section of DB Classes
Lazarus not be able to rebuilds because it return an error per
classes. reads this posts:
http://www.lazarus.freepascal.org/index.php?name=PNphpBB2&file;=viewto
pic&t;=6048&highlight;=
http://www.lazarus.freepascal.org/index.php?name=PNphpBB2&file;=viewto
pic&t;=6051&highlight;=

I will create a freeware and opensource application using Lazarus for
give possibility to all to modify free source code and incurage users
to personalize the application for windows and other s.o. like Linux
or Mac, but I am disincuraged, I thinging to remain on Delphi on
Windows  :cry: