multilinebutton.pas

来自「delphi win32api编程」· PAS 代码 · 共 42 行

unit MultiLineButton;

interface
uses
  Windows, Messages, SysUtils, Classes, Controls, StdCtrls;

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

procedure Register;

implementation

procedure TMultiLineButton.CreateParams(var Params: TCreateParams);
begin
  {call the inherited procedure to fill in the default values}
  inherited CreateParams(Params);

  {create an edit box...}
  Params.Style:=Params.Style or      {that has default button properties plus}
                BS_MULTILINE;        {multiple lines}
end;


procedure Register;
begin
  RegisterComponents('Samples', [TMultiLineButton]);
end;

end.