Luciano Carou: /* Descripción */

2025-05-23T15:59:29Z

Descripción

← Revisión anterior		Revisión del 17:59 23 may 2025
Línea 1:		Línea 1:
	=Descripción=		=Descripción=
	El objeto '''TprxDBCheckBox''' (Control de edición DB de campos BIT.) es el control de edición usado para los campos de tipo BIT.		El objeto '''TprxDBCheckBox''' (Control de edición DB de campos BIT.) es el control de edición usado para los campos de tipo BIT.
	[[Archivo:20250523 1253 TDBCHECKBOX.png\|miniaturadeimagen\|no\|Dos campos TDBCheckBox en una factura, Recupero de IVA e IIBB CABA.]]		[[Archivo:20250523 1253 TDBCHECKBOX.png\|miniaturadeimagen\|no\|Dos campos TDBCheckBox en una factura (Recupero de IVA e IIBB CABA).]]

	=[[QUEESESTO/IDENTIDAD\|Identidad]]=		=[[QUEESESTO/IDENTIDAD\|Identidad]]=

Luciano Carou: Página creada con «=Descripción= El objeto '''TprxDBCheckBox''' (Control de edición DB de campos BIT.) es el control de edición usado para los campos de tipo BIT. Dos campos TDBCheckBox en una factura, Recupero de IVA e IIBB CABA. =Identidad= Category:MANUAL/PROGRAMADOR Category:CONTROLES Ancestro: TDBCheckBox Carpeta: C:\DevelopPrx\library *Archivo: prxDBCheckBox.pas =Declaración=…»

2025-05-23T15:59:08Z

Página creada con «=Descripción= El objeto '''TprxDBCheckBox''' (Control de edición DB de campos BIT.) es el control de edición usado para los campos de tipo BIT. miniaturadeimagen|no|Dos campos TDBCheckBox en una factura, Recupero de IVA e IIBB CABA. =Identidad= Category:MANUAL/PROGRAMADOR Category:CONTROLES *Ancestro: TDBCheckBox *Carpeta: C:\DevelopPrx\library *Archivo: prxDBCheckBox.pas =Declaración=…»

Página nueva

=Descripción=
El objeto '''TprxDBCheckBox''' (Control de edición DB de campos BIT.) es el control de edición usado para los campos de tipo BIT.
[[Archivo:20250523 1253 TDBCHECKBOX.png|miniaturadeimagen|no|Dos campos TDBCheckBox en una factura, Recupero de IVA e IIBB CABA.]]

=[[QUEESESTO/IDENTIDAD|Identidad]]=
[[Category:MANUAL/PROGRAMADOR]]
[[Category:CONTROLES]]
*Ancestro: [[TDBCheckBox]]
*Carpeta: C:\DevelopPrx\library
*Archivo: prxDBCheckBox.pas

=Declaración=
<pre>
type
TprxDBCheckBox = class(TDBCheckBox)
private
FOnEnterField: TprxADOOnEnterField;
FOnExitField: TprxADOOnExitField;

procedure CMEnter(var Message: TCMEnter); message CM_ENTER;
procedure CMExit(var Message: TCMExit); message CM_EXIT;
procedure CNKeyDown(var Message: TWMKeyDown); message CN_KEYDOWN;
procedure FieldMessage(var Message: TprxADODataSetMessage); message MSG_PRXADODATASETMESSAGE;
protected
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Loaded; override;
published
property OnEnterField: TprxADOOnEnterField read FOnEnterField write FOnEnterField;
property OnExitField: TprxADOOnExitField read FOnExitField write FOnExitField;
end;
</pre>

===FOnEnterField: TprxADOOnEnterField===
Permite definir una referencia al procedimiento que debe manejar el OnEnter.

===FOnExitField: TprxADOOnExitField===
Permite definir una referencia al procedimiento que debe manejar el OnExit.

=Implementación=
===function TprxDBCheckBoxCreate(aOwner: TComponent; aDataSource: TDataSource; aFieldName: String): TprxDBCheckBox===
Esta función está definida fuera de la clase y sirve para crear un nuevo control de edición directamente.

===procedure Loaded===
El procedimiento Loaded se ejecuta cuando un form ya se ha instanciado y está listo para mostrarse al usuario, inicializa algunas de las propiedades.

Suscribe a los mensajes de dataset:
<pre>
TprxADODataSetEdit(DataSource.Dataset).Messages.Subscribe(Self, DataField);
TprxADODataSetEdit(DataSource.Dataset).FieldsXtdList.AssignEditControl(DataField, Self);
</pre>

Inicializa OnEnter y OnExit a los definidos en el [[TprxADODataSetEdit]]:
<pre>
OnEnterField := TprxADODataSetEdit(DataSource.Dataset).OnEnterFieldXtd;
OnExitField := TprxADODataSetEdit(DataSource.Dataset).OnExitFieldXtd;
</pre>

===procedure CMEnter(var Message: TCMENTER)===
Llama al '''OnEnterField''', agregar el caption '''<-''' para que el foco en un checkbox sea más visible y poco más.

===procedure CMExit(var Message: TCMExit)===
Llama al '''OnExitField''', si el resultado es True sigue normalmente, sino vuelve a setear foco en el control. Además, elimina el caption '''<-''',

===procedure CNKeyDown(var Message: TWMKeyDown)===
Atrapa la tecla VK_RETURN (ENTER) y avanza al siguiente control.

===procedure FieldMessage(var Message: TprxADODataSetMessage)===
Recibe y procesa mensajes de la aplicación, los mensajes son:
*msgEnable habilita (o deshabilita) un control según el estado que tenía.:
*msgDisable deshabilita el control.
*msgFocus pone el foco sobre el control (si el control lo admite).
*msgFindFocus si el control puede enfocar lo hace.

=Uso=
El control de edición se usa para los campos de tipo BIT y habitualmente es instanciado por [[TprxScrollBox]].

TprxDBCheckBox - Historial de revisiones

Luciano Carou: /* Descripción */