Форум программистов [Powered by Invision Power Board]

Код


TMyEdit = class(TEdit)
...
end;

Код

  
unit Unit1;

interface

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

type
  TMyEdit = class(TEdit)
  private
    procedure DoEnter(ASender: TObject);
    procedure DoExit(ASender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  published
    property OnEnter;
    property Color;
    property OnExit;
  end;

  TForm1 = class(TForm)
    Edit1: TEdit;
  private
  public
    constructor Create(AOwner: TComponent); override;


  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyEdit }

constructor TMyEdit.Create(AOwner: TComponent);
begin
  inherited;
  onEnter := DoEnter;
  onExit := DoExit;
end;

procedure TMyEdit.DoEnter(ASender: TObject);
begin
  Color := clRed;
end;

procedure TMyEdit.DoExit(ASender: TObject);
begin
  Color := clWhite;
end;

{ TForm1 }

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  with TMyEdit.Create(Self) do
    Parent := Self;
end;

end.

Код


unit Unit1;

interface

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

type

  THackEdit=class(TEdit)
  end;

  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
  private
  public
    procedure EditExit(Sender: TObject);
    procedure EditEnter(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.EditEnter(Sender: TObject);
begin
  TEdit(Sender).Color := clAqua;
end;

//первый вариант
{Либо так - первый вариант}
procedure TForm1.EditExit(Sender: TObject);
begin
  TEdit(Sender).Color := clWhite;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  THackEdit(Edit1).OnExit := EditExit;
  THackEdit(Edit1).OnEnter := EditEnter;
  THackEdit(Edit2).OnExit := EditExit;
  THackEdit(Edit2).OnEnter := EditENter;
end;
//конец первого варианта

//Второй вариант
{Либо так - второй вариант}
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  THackEdit(Sender).Color := clAqua;
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  THackEdit(Sender).Color := clAqua;
end;
//Конец второго варианта

end.