FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Problema con TMonthCalendar
Tengo el formulario que se ve en la imagen. Antes de pinchar en el TRadioGroup inferior hay que seleccionar la fecha de cargo. Tengo este código. - En el OnCreate del formulario Código:
void __fastcall TfGenRec::FormCreate(TObject *Sender) { Button1->Enabled = false; GroupBox1->Visible = false; RadioGroup1->Enabled = false; F_cargo->MinDate = Date(); while (F_cargo->MinDate.DayOfWeek() == 1 || F_cargo->MinDate.DayOfWeek() == 7) F_cargo->MinDate ++; nItem = 0; F_cargo->Date = F_cargo->MinDate; F_cargo->MaxDate = F_cargo->MinDate; while (nItem < 3) { F_cargo->MaxDate ++; if (F_cargo->MaxDate.DayOfWeek() == 1 || F_cargo->MaxDate.DayOfWeek() == 7) continue; nItem ++; } } //--------------------------------------------------------------------------- Código:
void __fastcall TfGenRec::FormPaint(TObject *Sender) { F_cargo->Enabled = true; F_cargo->Date = F_cargo->MinDate; F_cargo->SetFocus(); } //--------------------------------------------------------------------------- Código:
void __fastcall TfGenRec::FormKeyPress(TObject *Sender, char &Key) { if (Key == 27) { Key = 0; Button2Click(NULL); return; } } //--------------------------------------------------------------------------- Código:
void __fastcall TfGenRec::Button2Click(TObject *Sender) { if (!F_cargo->Enabled) FormCreate(NULL); else this->Close(); return; } //--------------------------------------------------------------------------- Código:
void __fastcall TfGenRec::F_cargoClick(TObject *Sender) { if (F_cargo->Date.DayOfWeek() == 1 || F_cargo->Date.DayOfWeek() == 7) { Mensaje(1, "FECHA DE CARGO: " + F_cargo->Date.FormatString("dd/mm/yyyy") + "\n\nNo puede facturarse en días bancarios inhábiles.", "Volver"); F_cargo->Date = Date(); F_cargo->SetFocus(); return; } if (Mensaje(2, "Ha seleccionado como fecha de cargo: " + F_cargo->Date.FormatString("dd/mm/yyyy"), "La fecha es correcta\nModificar fecha") == 2) { F_cargo->SetFocus(); return; } F_cargo->Enabled = false; RadioGroup1->ItemIndex = -1; RadioGroup1-Enabled = true; RadioGroup1->SetFocus(); } //--------------------------------------------------------------------------- Todas las variables que hay por el código (nItem por ejemplo) y funciones (Mensaje(...)) están definidas. |
#2
|
||||
|
||||
No utilices el operador ++ con propiedades, evitarás problemas incomprensibles (las propiedades vienen de delphi)
Código:
void __fastcall TForm1::FormCreate(TObject *Sender) { F_cargo->Enabled = true; Button1->Enabled = false; // GroupBox1->Visible = false; RadioGroup1->Enabled = false; F_cargo->MinDate = Date(); F_cargo->MaxDate = F_cargo->MinDate; while (F_cargo->MinDate.DayOfWeek() == 1 || F_cargo->MinDate.DayOfWeek() == 7) F_cargo->MinDate = F_cargo->MinDate + 1; int nItem = 0; F_cargo->Date = F_cargo->MinDate; F_cargo->MaxDate = F_cargo->MinDate; while (nItem < 3) { F_cargo->MaxDate = F_cargo->MaxDate + 1; if (F_cargo->MaxDate.DayOfWeek() == 1 || F_cargo->MaxDate.DayOfWeek() == 7) continue; nItem ++; } } Saludos. |
#3
|
||||
|
||||
Haré la prueba y ya comento.
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Problema con el formato de TMonthCalendar | adrall | OOP | 1 | 01-08-2014 11:28:53 |
OnKeyDown en TMonthCalendar | gluglu | Varios | 0 | 20-12-2005 11:35:54 |
problema con TMonthCalendar!! | kye_z | Varios | 2 | 16-11-2004 22:22:14 |
Ayuda con el Tmonthcalendar | acrophet | Varios | 1 | 29-09-2003 13:04:18 |
marcar fechas en tmonthcalendar | aitken | Varios | 1 | 22-05-2003 15:45:56 |
|