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)