Luciano Carou en 16:02 27 may 2025

2025-05-27T16:02:26Z

← Revisión anterior		Revisión del 18:02 27 may 2025
Línea 132:		Línea 132:
	===procedure ButtonCANCELARClick(Sender: TObject)===		===procedure ButtonCANCELARClick(Sender: TObject)===
	El usuario picó el botón de "Cancelar".		El usuario picó el botón de "Cancelar".

			=Uso=
			Este form solo se usa desde el control de edición desde el control de edición [[TprxDBEditDateTime]].

Luciano Carou: Página creada con «=Descripción= El objeto '''TTprxDBEditDateTimePickerForm''' (Selección de una fecha desde el control de edición.) se usa para seleccionar una fecha desde el control de edición TprxDBEditDateTime. Selección de una fecha. =Identidad= Category:MANUAL/PROGRAMADOR Category:CONTROLES Ancestro: TTprxForm Carpeta: C:\DevelopPrx\library *Archivo: prxDBEditDateTim…»

2025-05-27T16:01:56Z

Página creada con «=Descripción= El objeto '''TTprxDBEditDateTimePickerForm''' (Selección de una fecha desde el control de edición.) se usa para seleccionar una fecha desde el control de edición TprxDBEditDateTime. miniaturadeimagen|no|Selección de una fecha. =Identidad= Category:MANUAL/PROGRAMADOR Category:CONTROLES *Ancestro: TTprxForm *Carpeta: C:\DevelopPrx\library *Archivo: prxDBEditDateTim…»

Página nueva

=Descripción=
El objeto '''TTprxDBEditDateTimePickerForm''' (Selección de una fecha desde el control de edición.) se usa para seleccionar una fecha desde el control de edición [[TprxDBEditDateTime]].

[[Archivo:20250527 1254 SELECCION FECHA.png|miniaturadeimagen|no|Selección de una fecha.]]

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

=Declaración=
<pre>
type
TTprxDBEditDateTimePickerForm = class(TTprxForm)
Panel1: TPanel;
Panel3: TPanel;
Panel9: TPanel;
Panel10: TPanel;
Panel11: TPanel;
Panel12: TPanel;
SpeedButtonANTERIOR: TSpeedButton;
SpeedButtonSIGUIENTE: TSpeedButton;
EditMES_EN_CURSO: TEdit;
Panel13: TPanel;
Panel14: TPanel;
Panel2: TPanel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button01: TButton;
Button02: TButton;
Button03: TButton;
Button04: TButton;
Button05: TButton;
Button06: TButton;
Button07: TButton;
Button08: TButton;
Button09: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
Button16: TButton;
Button17: TButton;
Button18: TButton;
Button19: TButton;
Button20: TButton;
Button21: TButton;
Button22: TButton;
Button23: TButton;
Button24: TButton;
Button25: TButton;
Button26: TButton;
Button27: TButton;
Button28: TButton;
Button29: TButton;
Button30: TButton;
Button31: TButton;
Button32: TButton;
Button33: TButton;
Button34: TButton;
Button35: TButton;
Button36: TButton;
Button37: TButton;
Button38: TButton;
Button39: TButton;
Button40: TButton;
Button41: TButton;
Button42: TButton;
Panel4: TPanel;
CheckBoxSELECCIONDIRECTA: TCheckBox;
ButtonAPLICAR: TButton;
MesAnterior: TAction;
MesSiguiente: TAction;
SeleccionDirecta: TAction;
Hoy: TAction;
Salir: TAction;
Seleccionar: TAction;
ButtonCANCELAR: TButton;
procedure FormActivate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure MesAnteriorExecute(Sender: TObject);
procedure MesSiguienteExecute(Sender: TObject);
procedure SeleccionDirectaExecute(Sender: TObject);
procedure HoyExecute(Sender: TObject);
procedure SalirExecute(Sender: TObject);
procedure ButtonFechasClick(Sender: TObject);
procedure ButtonAPLICARClick(Sender: TObject);
procedure ButtonCANCELARClick(Sender: TObject);
private
FFecha: TDateTime;
protected
procedure SetFecha(aValue: TDateTime);
procedure SetButtonCaption(aButtonNbr: Integer; aCaption: Integer);
procedure SetButtonFocus(aDayNbr: Integer);
public
property Fecha: TDateTime read FFecha write SetFecha;
end;
</pre>

=Implementación=
===procedure FormShow(Sender: TObject)===
Setea la fecha del día y los hints de los botones de mes anterior y mes siguiente.

===procedure MesAnteriorExecute(Sender: TObject)===
Decrementa el mes en curso de la fecha seleccionada.

===procedure MesSiguienteExecute(Sender: TObject)===
Incrementa el mes en cusro de la fecha seleccionada.

===procedure SeleccionDirectaExecute(Sender: TObject)===
Si marcamos el check de "Selección directa" cuando elijamos la fecha el form se cierra, sino tenemos que elegir la fecha y picar "Aplicar".

===procedure SetButtonFocus(aDayNbr: Integer)===
Dibuja el número de día en cada botón.

===procedure ButtonFechasClick(Sender: TObject)===
El usuario picó un botón de alguno de los días del form.

===procedure ButtonAPLICARClick(Sender: TObject)===
El usuario picó el botón de "Aplicar".

===procedure ButtonCANCELARClick(Sender: TObject)===
El usuario picó el botón de "Cancelar".

TTprxDBEditDateTimePickerForm - Historial de revisiones

Luciano Carou en 16:02 27 may 2025