Capturar cambios en un DBLookUpComboBox

[[Héctor Randolph]]

Otra forma de hacerlo sería capturando el evento OnChange del campo que está relacionado con el DBLookUpComboBox, es decir, abres el editor de campos del DataSet y cada uno de los campos tendrá su propio evento Onchange.

Saludos

[TriLoCBA]

Muchas Gracias a Ambos !!!... Era lo que necesitaba

Un abrazo.

[Thales]

Me he encontrado con el mismo problema e investigando he encontrado otra manera de hacerlo: usando la técnica de las clases interpuestas que explica a las mil maravillas nuestro amigo Marteens en este artículo y usando el siguiente código para implementar el evento OnChange en la clase TDBLookupComboBox

Código Delphi [-]
unit MyDBLookupComboBox;
 
interface
 
uses Classes, DBCtrls;
 
type
  TDBLookupComboBox = class(DBCtrls.TDBLookupComboBox)
  private
    FOnChange: TNotifyEvent;
  protected
    procedure KeyValueChanged; override;
  published
    property OnChange: TNotifyEvent read FOnChange write FOnChange;
  end;
 
implementation
 
procedure TDBLookupComboBox.KeyValueChanged;
begin
  inherited;
  if Assigned(FOnChange) then
    FOnChange(Self);
end;
 
end.

Un saludo