Fórum Desenvolvimento de componente para Form #204139

unit MudaCor;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TMudaCor = class(TComponent)
  private
    { Private declarations }
    procedure NovoKeyPress(Sender: TObject;var Key: Char);
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents(´NUI´, [TMudaCor]);
end;

{ TMudaCor }

constructor TMudaCor.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  if not(AOwner is TForm) then raise Exception.Create(´Este componente deve pertencer a um form!!´);
  (AOwner as TForm).Color:= clRed;
  (AOwner as TForm).Caption:= ´Novo caption´;
  (Aowner as TForm).OnKeyPress:= NovoKeyPress;
end;

procedure TMudaCor.NovoKeyPress(Sender: TObject; var Key: Char);
begin
  Showmessage(´Mensagem!!!´);
end;

end.