Fórum TypeCast #411342

if (Components[I]is TDBComboBox) and (TDBComboBox(Components[I]).Tag = 0) then
begin
...
end;

procedure TForm1.DBComboBox1Enter(Sender: TObject);
begin
	TFrmModelo.AplicaCor(TDBComboBox(Sender));
	// Continua evento
end;

procedure TForm1.DBComboBox1Exit(Sender: TObject);
begin
	TFrmModelo.TiraCor(TDBComboBox(Sender));
	// Continua evento
end;

unit uTDBEdit;

interface

uses DBCtrls, Graphics, uFuncoes, Messages, Windows, Classes;

type

  TDBEdit = class(DBCtrls.TDBEdit)
  protected
    procedure DoEnter; override;
    procedure DoExit; override;
  private
    FOldColor: TColor;
  public

  published

  end;

implementation

{ TDBEdit }
procedure TDBEdit.DoEnter;
begin
  inherited;
  if not ReadOnly then
  begin
    FOldColor := Color;
    Color := $00BAFEF5;
  end
  else
  begin
    FOldColor := Color;
    Color := $00D4D4D4;
  end;
end;

procedure TDBEdit.DoExit;
begin
  inherited;
  Color := FOldColor
end;


end.

unit uFrmMateriasPrimas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uFrmPadrao, DB, ImgList, ComCtrls, ExtCtrls, ToolWin, StdCtrls, Mask,
  DBCtrls, FMTBcd, SqlExpr, Buttons, uFuncoes, Menus, uTDBEdit; { Veja que o último uses que eu coloquei foi exatamente o nome da Unit criada }

type

  TFrmMateriasPrimas = class(TFrmPadrao)
    Label2: TLabel;
    Label3: TLabel;
    DBEdit2: TDBEdit;