Cita:
Empezado por GerTorresM
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);