Код:
type
TQueryPanel = class(TPanel)
private
FQuery: TQuery;
public
constructor Create(AOwner: TComponent); override;
published
property Query: TQuery read FQuery;
end;
...
constructor TQueryPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FQuery:=TQuery.Create(Self);
end;
etc |