Código Delphi [-] procedure FrmMain.AbrirRegistro(Sender: TObject); begin Form5.Registro.Valor1 := 1; if Form5.ShowModal = mrOk then ShowMessage(IntToStr(Form5.Registro.Valor2)); end;
procedure FrmMain.AbrirRegistro(Sender: TObject); begin Form5.Registro.Valor1 := 1; if Form5.ShowModal = mrOk then ShowMessage(IntToStr(Form5.Registro.Valor2)); end;