Yes, One moretime, all woit goes to Mattias, :)
I'm still not useto lazarus style code structure. Ancestor component,
trigger when finish initialization self, this mean (for me) I have to
sparate my code.
in
constructor TExLookUp.Create;
FGrid := TRxDBGrid.Create(Self);
FGrid.Visible := False;
FGrid.DataSource := FListField.DataSource;
.....
set FGrid.xxx properies, not get parent's (TExLookUp) properties.
TExLookUp.Left, TExLookUp.Top etc
procedure TExLookUp.Loaded;
begin
inherited Loaded;
// Now TExLookUp.xx is ready for getting properties
FGrid.Left := Self.Left;
FGrid.Top := Self.BoundsRect.Bottom-2;
FGrid.Width := Self.BoundsRect.Right - Self.BoundsRect.Left +
Self.ButtonWidth;
FGrid.Parent := Self.Parent;
end;
I did, I tested, and thats okey now.
Thank you,
05-03-2014 14:12 tarihinde, Mattias Gaertner yazdı:
[...]
I have to wait, when
self(TExLookUp) has created, and load self's properties loaded from,
Override method Loaded.
Mattias
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus