Bueno un poquito de código, aquí es donde me corrigen los maestros del Club, con mucho gusto acepto sus criticas.
Empecemos:
Nos posicionamos en el form Banco y le damos doble clic, con esto no llevara a su evento OnFormCreate, en donde ponemos esto:
NOTA: El código esta explicado:
Código Delphi
[-]
procedure TBanco.FormCreate(Sender: TObject);
begin
DTP1.DateTime:= now; Banco.Active := True; Banco.Last; SumRet.Active := True; SumDep.Active := True; ESalTot.Text := FloatToStr((SumDep.Fields[0].AsFloat) - SumRet.Fields[0].AsFloat);
DBNTransac.Enabled := False;
DBDescrip.Enabled := False;
DBRetiros.Enabled := False;
DBDeposit.Enabled := False;
DBSalAnt.Enabled := False;
CBTipo.Enabled:= False;
DBNavigator1.Enabled := False;
BRetiros.Visible := False;
BDeposito.Visible := False;
end;
Ahora le damos doble clic al boton Cancelar, este es el evento OnClick, ponemos esto:
Código Delphi
[-]
procedure TBanco.BcancelaClick(Sender: TObject);
begin
Close; end;
NOTA: Este código lo voy probando, osea que se puede cortar y pegar, sugiero escribirlo, se aprende mejor.
Seguimos con lo demás en el siguiente post.
Saludos