Ver Mensaje Individual
  #4  
Antiguo 22-04-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
Lo más fácil es crear una variable (o propiedad) que indique qué se debe mostrar, por ejemplo, lo típico:
Código Delphi [-]
type TModo = (mInsertar, mEditar, mMostrar);

form1 = class(tform)
private
  FModo:TModo
  procedure SetModo(Value:TModo);
public 
 property Modo:TModo read FModo write SetModo;
end;


procedure TForm1.SetModo(value:TModo);
begin
  
  if Value = mInsertar then
  begin 
    // ocultar Edits, cambiar captions, etc.
  end
  else if Value = mEditar then
  begin
   
  end;
  FModo := Value;
end;

Ahora después de crear ese Form, asignas un valor a la propiedad Modo y listo, ya tienes todos los captions y demás hecho. Por otra parte tienes la variable FModo que puedes preguntar si está en modo edicion, inserción, etc; como ves mucho más cómodo que preguntar por un caption.

Código Delphi [-]
  Form1 := Tform1.Create(Application);
  Form1.Modo := mInsertar;
  Form1.Show;

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita