Foros Club Delphi - Crear un Formulario

Cita:

Empezado por GerTorresM (Mensaje 344822)

hola a todos:

las verdad esto de la POO me ha parecido muy interesante y alguna veces estresan, bien me encuentro creando un formulario y me veo en la obligación de crear el formulario siempre utilizando la opción File, New, y Form, a partir de esto siempre creo el formulario

mis inquietudes son las siguientes:

1. existe un forma diferente de crear el formulario ?
2. en el evento de crear le indico como aparece en el codigo

Código Delphi [-] constructor TFCopiaSeguridad.Create(Owner: TComponent); begin inherited; crearopcion; crearEtiquetasTexto; crearBotones; crearListaFichero; crearDirectorio; crearUnidad; crearBarraProgreso; end;

los procedimientos que debe realizar al crearse, pero no logro modificar las propiedades del formulario como ej. el caption, en que lugar lo debe hacer y como sería (si les es posible regalemen un ejemplo) el caso.

gracias de antemano

Gertorresm
Colombia

Hola, cuestion de gustos y maneras de pensar, por ejemplo yo para crear mis formularios modales generalmente uso una funcion de clase

Código Delphi [-]unit FormBeneficio;
.....
.....
class function TfrmSelBeneficio.GetBeneficio(ACurrentType: string): string;
var
  SQLStr: string;
  ADataSet: IrsClientDataSet;
  AfrmSelBeneficio: TfrmSelBeneficio;
begin
  try
    AfrmSelBeneficio := TfrmSelBeneficio.Create(Application);
    SQLStr := ' SELECT COD_BENEFICIO, DESCRIPCION, DES_TIP FROM MA_TABLABENEFICIO ' +
              ' WHERE COD_BENEFICIO LIKE ' + QuotedStr('%' +ACurrentType + '%') +
              ' ORDER BY COD_BENEFICIO';
    ADataSet := CentralClient.Database[''].GetDataset(SQLStr);
    AfrmSelBeneficio.dscBeneficio.DataSet := ADataSet.Dataset;
    AfrmSelBeneficio.edtBeneficio.Text := ACurrentType;
    if AfrmSelBeneficio.ShowModal = mrOk then
      result := AfrmSelBeneficio.fCodBeneficio
    else
      result := ''
  finally
    AfrmSelBeneficio.free;
  end;
end;

y la llamada a la funcion de clase es mas o menos asi:

Código Delphi [-]unit Llamada;
....
...
      ANewText := TfrmSelBeneficio.GetBeneficio(ACurrentType);