Button mit speziellen Eigenschaften gesucht

[BrunoT]

Danke Christian, ich wusste, dass ich mich auf die DP verlassen kann!

für alle, die das Problem auch haben:

Delphi-Quellcode:

unit UExtraButton;

interface

uses
   SysUtils, Classes, Controls, StdCtrls, Buttons,Forms, windows,Messages;

type
  TExtraButton = class(TButton)
  private
    procedure FWMGETDLGCODE(var Msg : TWMGetDlgCode); message wm_GetDlgCode;
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure TExtraButton.FWMGETDLGCODE(var Msg : TWMGetDlgCode);
begin
  inherited;
  Msg.Result := Msg.Result or DLGC_WANTARROWS;
end;

procedure Register;
begin
  RegisterComponents('Zusätzlich', [TExtraButton]);
end;

end.

mfg

BrunoT