CommandLinks und AeroWizards

[delphi_user14]

Es funktioniert noch immer nicht.

Ich habe versucht TurboMartins Quellcode in eine Komponente zu packen.

Doch wenn ich die Komp aufs Formular schmeißen will heißt es: TCommandLink hat keine übergeordnete Komponente. (oder so)

Obwohl TButton (von der die Komp ausgeht) doch Parent gesetzt hat.

Hier der Code:

Delphi-Quellcode:

unit CommandLink;

interface

uses
  SysUtils, Classes, Controls, StdCtrls;

type
  TCommandLink = class(TButton)
  private
    { Private-Deklarationen }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

procedure Register;

const
  BS_COMMANDLINK = $0000000E;

implementation

procedure TCommandLink.CreateParams(var Params: TCreateParams);
begin
  Params.Style := Params.Style or BS_COMMANDLINK;
end;

procedure Register;
begin
  RegisterComponents('Own', [TCommandLink]);
end;

end.

Das mit SendMessage(Handle, BCM_SETNOTE, 0, strNote); funktioniert ja nicht. (wParam ist nicht String)