Pude compilar el componente, anda muy bien pero el problema es que tengo que cambiar todos los Tedits que tengo, si creo una unidad con este código
Código Delphi
[-]unit ColorEdit;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, jpeg, ExtCtrls, StdCtrls, Buttons, Mask, DBCtrls;
type
TForm1 = class(TForm)
procedure OnFieldEnter(Sender: TObject);
procedure OnFieldExit(Sender: TObject);
end;
const
clFocused = TColor($00FFFF); clBlurred = TColor($FFFFFF);
implementation
procedure TForm1.OnFieldEnter(Sender: TObject);
begin
if (Sender is TCustomEdit) then
TEdit(Sender).Color := clFocused;
end;
procedure TForm1.OnFieldExit(Sender: TObject);
begin
if (Sender is TCustomEdit) then
TEdit(Sender).Color := clBlurred;
end;
end.
Como seria la forma para llamarla desde los otros formularios??
Desde ya muchas Gracias!!!