Konstruktoren von Komponenten
müssen einen festen Aufbau haben. Wenn Du einen im Code nutzen willst, dann kannst Du eine 2. Variante anbeiten:
Delphi-Quellcode:
unit akQuery;
interface
uses
SysUtils, Classes,
DB, mySQLDbTables;
type
akQuery =
class(TmySQLQuery)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent);
override;
// oder komplett weglassen
constructor CreateDb(AOwner: TComponent; Database: TmySQLDatabase);
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Samples', [akQuery]);
end;
{ akQuery }
constructor akQuery.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;
constructor akQuery.CreateDb(AOwner: TComponent; Database: TmySQLDatabase);
begin
Create(AOwner);
self.Database:= Database;
end;
end.
...
...