CommandLinks und AeroWizards

[TurboMartin]

Probier mal folgendes:

Delphi-Quellcode:

const
  BS_COMMANDLINK = 0x0000000E;
  BCM_SETNOTE = 0x00001609

TCommandLink = class (TButton)
public
  procedure SetNote(strNote: String);
protected
  procedure CreateParams(var Params: TCreateParams); override;
end;

procedure TCommandLink.SetNote(Note: String);
begin
  SendMessage(Handle, BCM_SETNOTE, 0, strNote);
end;

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