Ver Mensaje Individual
  #2  
Antiguo 26-09-2008
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Yo usaría frames. Creas un frame (File|New|Frame) al que llamas TFrameDiente o como quieras. Dentro colocas tres TEdit y agregas una propiedad pública NumeroDiente:

Código Delphi [-]
type
  TTFrameDiente = class(TFrame)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
  public
    NumeroDiente: Integer;
  end;

La conveniencia del Frame es que puedes diseñarlo aparte del formulario y reusarlo tantas veces como quieras en el formulario:




Entonces, tendrías 32 frames de este tipo, uno por cada diente. A la hora de guardar los registros revisas cada frame y simplemente verificas el valor de cada edit del frame:

Código Delphi [-]
// Revisar diente 18

if (Frame18.Edit1.Text <> '') or (Frame18.Edit2.Text <> '') or (Frame18.Edit3.Text <> '') then
begin

  { Guardas el registro }

end;

// Saludos
Responder Con Cita