Ver Mensaje Individual
  #7  
Antiguo 06-05-2011
Avatar de JoseAntonio
JoseAntonio JoseAntonio is offline
Miembro
 
Registrado: abr 2006
Ubicación: Lima - Ciudad de los Reyes.
Posts: 87
Reputación: 19
JoseAntonio Va por buen camino
Post

una clase deberia tener las minimas interacciones con otras clases, esto es por una cuestion de orden, por eso yo normalmente utilizo formularios modales y funciones de clase y paso los parametros durante la creacion, ahi te envio un ejemplo para que lo modifiques al gusto

Código Delphi [-]
class function TfrmEditField.EditField(var AName, AType, ALong,
  ADisplay: string): boolean;
var
  AfrmEditfield: TfrmeditField;
begin
  try
    AfrmEditField := TfrmEditField.create(Application);
    AfrmEditField.lbNameField.Caption:= Aname;
    AfrmEditField.ComboTipo.text := AType;
    AfrmEditfield.DBLong.Text:= ALong;
    AfrmEditfield.DBDisplay.Text:= ADisplay;
    result := false;
    if AfrmEditField.ShowModal = mrOk then begin
      AType := AfrmEditField.combotipo.text;
      ALong := AfrmeditField.dblong.Text;
      Adisplay:= Afrmeditfield.DBDisplay.Text;
      result := true;
    end;
  finally
    AfrmEditField.free;
  end;

salu2
__________________
nuestro carácter está reflejado en cada línea de código que escribimos.
Responder Con Cita