Subject | TIB_Column properties. |
---|---|
Author | manuelfresnedaguerra@yahoo.es |
Post date | 2001-07-31T12:08:13Z |
How can get the Form that TIB_Column belongs. I want to change
properties of the TIB_Edit of the Form.
Now I must pass then Form (F),like this:
function ppErrorCampo(C: TIB_Column; F:TObject):
var
C: TComponent;
begin
C := (F as TForm).FindComponent(C.FieldName);
if C is TcIB_Edit then
with (C as TcIB_Edit) do
begin
Text := '';
end;
end;
I think samething like :
((TIB_Column.GetParentComponent as IB_Query).GetParentComponent as
TForm) ???.
Maybe I am fool, but ....
Thanks.
properties of the TIB_Edit of the Form.
Now I must pass then Form (F),like this:
function ppErrorCampo(C: TIB_Column; F:TObject):
var
C: TComponent;
begin
C := (F as TForm).FindComponent(C.FieldName);
if C is TcIB_Edit then
with (C as TcIB_Edit) do
begin
Text := '';
end;
end;
I think samething like :
((TIB_Column.GetParentComponent as IB_Query).GetParentComponent as
TForm) ???.
Maybe I am fool, but ....
Thanks.